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SEQ 1 



i 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
16 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



.REM 



IDENTIFICATION 



PRODUCT CODE: 
PRODUCT NAME: 
DATE: 

tIAINTAINER: 
AUTHOR: 



AC-8460C-nC 

CZOHECO OHll CHARACTER LENGTH/BASIC DATA TEST 
JUNE 1985 

NAC SOFTUARE ENGINEERING 
HICHAEL DAVIS 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE UITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COftllTHENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 
DOCUMENT. 

NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF SOFTWARE ON 
EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED 
COMPANIES 



COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION 



C70MC-C0 
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SEQ 2 



1 . ABSTRACT 

THE OHll CHARACTER LENGTH AND BASIC DATA TEST VERIFIES 
THAT CHARACTER LENGTH CAN BE SELECTED CORRECTLY ON 
EACH LINE CORRECTLY. AND THAT THE CORRECT 
LINE NUriBER AND CHARACTER STATUS ARE RECEIVED ON 
EACH LINE SELECTED FOR TRANSMISSION. 
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1 

2 2. REQUIREMENTS 

3 

4 2.1 EQUIPMENT 

5 

6 POP- 11 FAMILY STANDARD COMPUTER WITH 4KU OF MEMORY 

7 ASR-33 TELETYPE OR EQUIVALENT 

8 OHll ASYNCHRONOUS MULTIPLEXER 

9 DM11 MAINTENANCE CARD INSTALLED 
10 

11 2.2 STORAGE 

12 

13 THE PROGRAM LOADS INTO 4KU OF MEMORY 

14 

15 3. LOADING PROCEDURE 

16 

17 THE STANDART PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 

18 IS TO BE USED 
19 

20 4. STARTING PROCEDURE 

21 

22 4.1 CONTROL SWITCH SETTINGS 

23 

24 4.1.1 AFTER PROGRAM LOAD (INITIAL PROGRAM START) 

25 

28 ALL CONSOLE SWITCHES DOWN 

27 

28 4.1.2 TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES 

29 AFTER PROGRAM RESTART 
30 

31 SUOO-1 
32 

33 4.1.3 TO START PROGRAM AT SELECTED TEST AFTER PROGRAM RESTART 

34 

35 SUOl-1 
36 

37 4.2 STARTING ADDRESS 

38 

39 THE STARTING ADDRESS FOR ALL TESTS IS 000200 

40 

41 THE RESTART ADDRESS FOR ALL TESTS I 0002000 

42 

43 THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200 

44 

45 4.3 PROGRAM AND/OR OPERATOR ACTION 

46 

47 4.3.1 INITIAL PRKRAM START 

48 

49 4.3.1.1 LOAD PROGRAM INTO MEMORY 

50 4.3.1.2 LOAD ADDRESS 000200 

51 4.3.1.3 CLEAR CONS(».E SWITCHES 

52 4.3.1.4 PRESS START 

53 4.3.1.5 THE PROGRAM WILL TYPE "DHll CHARACTER LENGTH AND BASIC DATA TEST" 

54 AND WILL THEN TYPE "VECTOR ADDRESS-" AND WAIT FOR AN 

55 INPUT FROM 1»E TELETYPE KEYBOARD. 
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1 

2 4.3 (CONT'D) 
3 

4 4.3.1.6 TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 

5 ^OR THE DHll TO BE TESTED FOLLOWED BY <CARRIAGE RETURN> 
6 

7 NOTE: WORDS IN ANGLE BRACKETS. I.E. <CARRIAGE RETURN> MEAN THAT 

8 THE TELETYPE KEY WITH THE NAMED FUNCTION SHOULD BE STRUCK 
9 

10 IF AN INCORRECT ADDRESS IS ENTERED. THE PROGRAM 

11 WILL TYPE «?" AND WILL REPEAT THE SECOND MESSAGE OF 4.3.1.5 

12 4,3.1.7 THE PROGRAM WILL TYPE "CONTROL REGISTER ADDRESS-" 
IS AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
14 

15 4.3.1.8 TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER OF THE 

16 DHll TO BE TESTED FOLLOWED BY <CARRIAGE RETURN> 
17 

18 IF AN INCORRECT ADDRESS IS TYPED. THE PROGRAM WILL TYPE 

19 "?" AND WILL THEN REPEAT THE MESSAGE OF 4.3.1.7 

20 4.3.1.9 THE PROGRAM WILL TYPE »R" TO INDICATE THAT IT IS 

21 ABOUT TO START TESTING, AND THEN TESTING WILL BEGIN 
22 

23 4.3.2 PROGRAM RESTART WITH ALL SWITCHES DOWN 
24 

25 4.3.2.1 PERFORM 4.3.1.2 TO 4.3.1.5 

26 4.3.2.2 THE PROGRAM WILL TYPE "DHll CHARACTER LENGTH AND BASIC DATA TEST 

27 AND WILL THEN CONTINUE AS DESCRIBED IN 4.3.1.9 
28 

29 4.3.3 PROGRAM RESTART WITH SWOO-1 
30 

31 4.3.3.1 LOAD ADDRESS 000200 

32 4.3.3.2 SET SWOl-1 

33 4.3.3.3 PRESS START 

34 4!3!3!4 THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1.5 TO 4.3.1.9 
35 

36 4.3.4 PROGRAM RESTART WITH SWOl-1 
37 

38 4.3.4.1 LOAD ADDRESS 000200 

39 4.3.4.2 SET SUOl-1 

40 4.3.4.3 PRESS START 

41 4.3.4.4 THE PROGRAM WILL TYPE "DHll CHARACTER LENGTH AND BASIC DATA TEST 

42 AND WILL THEN TYPE "TEST PC-" AND WILL WAIT FOR AN INPUT 

43 ("RUM rHE TELETYPE KEYBOARD 

44 4.3.4.5 TYPE IH THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO 

45 BE STARTED FOLLOWED BY < CARRIAGE RETURN> 

46 4.3.4.6 THE PROGRAM WILL TYPE R TO INDICATE THAT IT HAS STARTED 

47 AND WILL START TESTING AT THE SELECTED TEST. 
48 

49 NOTE: CARE MUST BE TAKEN WHEN THS FEATURE IS USED. STNCE 

50 THERE IS NO PROTECTION AGAINST SELECTING AN ADDRESS THAT 

51 IS IN THE MIDDLE OF A TEST 
52 

53 NOTE: IF IT IS DESIRED TO LOOP ON THE TEST THAT IS SELECTED 

54 SET SW14-1 BEFORE ENTERING THE TEST ADDRESS 
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SEQ 5 



1 

2 5. OPERATING PROCEDURE 

3 

4 5.1 OPERATIONAL SUITCH SETTINGS 

5 

6 SU15-1. HALT ON ERROR 

7 SU14-1. LOOP ON CURRENT TEST 

8 SUlS'l. SUPPRESS ERROR TYPEOUT 

9 SMll-1. INHIBIT ITERATIONS 

10 SUlO-1. ESCAPE TO NEXT TEST ON ERROR 

11 SW09-1. FREEZE VARIABLE PARAMETER IN CURRENT TEST 

12 SUOl-1. START PROGRAM AT SELECTED TEST 

13 SUOO-1. CHANGE PARAMETERS AT PROGRAM RESTART 
14 

15 5.2 SUBROUTINE ABSTRACTS 

16 

17 5.2.1 TRAPCATCHER (LOCATIONS 000000-000776) 

18 

19 THIS ROUTINE IS USED TO INTERCEPT UNEXPECTED INTERRUPTS 

20 AND TRAPS. THE AREA FROM 000000-000776 IS LOADED 

21 UITH THE FOLLOWING SEQUENCE 
22 

23 2 

24 0 

25 4 

26 0 
27 

28 772 

29 0 
SO 776 
31 0 
32 

33 IP AN UNEXPECTED INTERRUPT OR TRAP OCCURS. THE PROGRAM 

34 WILL HALT UITH THE PC 2 GREATER THAN THE ADDRESS TO 

35 WHICH THE PROGRAM TRAPPED. THE PROCESSOR STACK MAY 

36 BE EXAMINED TO DETERMINE WHERE THE PROGRAM WAS WHEN THE 

37 TRAP OR INTERRUPT OCCURED. 
38 

39 5.2.2 START (PROGRAM INITIALIZATION) 

40 

41 THIS ROUTINE INITIALIZES ALL PROGRAM FLAGS AND COUNTERS. 

42 TYPES THE PROGRAM TITLE MESSAGE. AND INPUTS THE VECTOR 

43 AND CONTROL REGISTER ADDRESSES OF THE DHll TO BE TESTED. 
44 

45 5.2.3 BEGIN (PROGRAM START AND RESTART) 

46 

47 THIS ROUTINE IS ENTERED IMMEDIATLY AFTER "START" 

48 AND EACH TIME A PRXRAM PASS HAS BEEN COMPLETED. 

49 THE ROUTINE SETS UP THE PROCESSOR STACK AND STATUS WORD 

50 AND THEN TRANSFERS CONTROL TO THE TEST AT WHICH 

51 TESTING WILL BEGIN. IF SWOl-0 WHEN THIS ROUTINE IS ENTERO 

52 TESTING WILL START AT Tl (TEST 1). IF SWOl-1 WHEN 

53 THIS ROUTINE IS ENTERED. TESTING WILL START AT THE PC 

54 ENTERED FROM THE TELETYPE KEYBOARD. 
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SEQ 6 



1 

2 5.2. 4 EOP (END OF PASS) 

3 

4 THIS ROUTINE IS ENTERED ONCE PER PASS AFTER ALL TESTS 

5 HAVE BEEN COMPLETED. THIS ROUTINE TYPES THE HAINDEC 

6 IDENTIFICATION CODE OF THE PROGRAH. CLEARS ERROR FLAGS 

7 AND UPDATES THE PASS COUNT. IF THE PROGRAH WAS LOADED 

8 UNDER ACTll OR OOP. THE ROUTINE CHECKS FOR RETURN TO 

9 THE ACTll OR DDP HONITOR. IF THE PROGRAM IS NOT UNDER 
10 MONITOR CONTROL. THE ROUTINE TRANSFERS TO BEGIN. 

11 

12 5.2.5 SCOPER (SCOPE LOOP AND ITERATION HANDLER) 

13 

14 THIS ROUTINE IS ENTERED EACH TIME A TEST IS COMPLETED. 

15 THE ROUTINE CHECKS FOR THE FO-LOUING UPON ENTRY 

16 A) IF SUlO-1. THE ROUTINE UILL TRANSFER TO THE NEXT TEST 

17 IN SEQUENCE. AFTER CLEARING ERROR FLAGS. 

18 B) IF SUll-1. THE ROUTINE UILL TRANSFER TO THE NEXT TEST 

19 SEQUENCE. AFTER CLEARING ERROR FLAGS. 

20 C) IF SU14-1. THE ROUTINE UILL LOOP ON THE CURRENT TEST 

21 REGARDLESS OF THE ITERATION COUNT. 
22 

23 IF NONE OF THE ABOVE IS TRUE. THE ROUTINE UILL ADD 1 

24 TO THE COUNT OF TEST ITERATIONS. AND COMPARE THIS VALUE 

25 TO THE NUMBER OF ITERATIONS THAT SHOULD BE PERFORMED. 

26 IF THESE NUMBERS ARE EQUAL. THE ROUTINE UILL TRANSFER 

27 TO THE NEXT TEST IN SEQUENCE. 1»E THE NUMBERS ARE NOT 

28 EQUAL. THE TEST CURRENTLY IN PROGRESS UILL BE REPEATED. 
29 

30 5.2.6 SCOPIR (FREEZE ON CURRENT DATA) 

31 

32 THE CALL TO THIS ROUTINE FOLLOUS IMMEDIATLY AFTER THE 

33 THE CALL TO THE ERROR HANDLER IN THOSE TESTS THAT HAVE 

34 VARIABLE PARAMETERS. THIS ROUTINE IS ALWAYS ENTERED IN 

35 THOSE TESTS. UHETHER OR NOT AN ERROR OCCURS. 

36 IF SU09-1. THE ROUTINE UILL TRANSFER CONTROL BACK TO THE 

37 TEST AT A POINT UHICH UILL ALLOW REPEATING THE FUNCTION 

38 UNDER TEST CONTINUOUSLY UITH THE SAME DATA. IF THIS 

39 OPTION IS SELECTED. THE ROUTINE "SCOPER" IS NEVER ENTERED 

40 AND ITERATION COUNTS UILL NOT BE UPDATED. 
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SEQ 7 



1 

2 5.2.7 ERRORS (ERROR HANDLER) 

3 

4 THIS ROUTINE IS ENTERED UPON ERROR DETECTION ONLY. 

5 UITH ALL CONSOLE SWITCHES DOUN. THE ROUTINE PROCEDES AS FOLLOWS- 

6 A) THE PC OF THE INSTRUCTION THAT CALLED THE ERROR HANDLER 

7 IS ACCESSED THRU THE STACK. AND THEN THE EMT INSTRUCTION 

8 ITSELF IS FETCHED. THE 8 LSB OF THE EMT 

9 INSTRUCTION ARE THE ERROR CODE. THIS CODE IS 

10 USED TO ACCESS A TABLE OF ERROR MESSAGES AND ERROR 

11 DATA STORAGE LOCATIONS. 

12 B) IF THE TEST THAT FAILED DID NOT FAIL PREVIOUSLY 

13 DURING THIS PASS. A COMPLETE ERROR REPORT IS MADE 

14 IF THE TEST THAT FAILED FAILED MOR THAT ONCE DURING 

15 THE CURRENT PASS. ONLY THE DATA RELATING TO THE FAILUER 
1$ IS TYPED. IF SU13-1. NO ERROR TYPEOUT IS MADE. 

IJ C) THE ROUTINE NOW CHECKS FOR HALT ON ERROR. IF SU15-1 

18 THE PROGRAM WILL HALT UITK THE PC OF THE CALL TO 

19 THE ERROR ROUTINE IN RO. IF SU15-0, THE PROGRAM WILL 

20 NOT HALT. BUT MILL CHECK FOR ESCAPE TO NEXT TEST. 

21 D) IF SUIO-O, THE ROUTINE UILL RETURN 

22 TO THE TEST IN PROGRESS. IF SWlO-1. THE ROUTINE WILL 

23 ABORT THE CURRENT TEST. AND TRANSFER TO THE NEXT 
|4 TEST IN SEQUENCE. THRU THE ROUTINE "SCOPER". 

26 5.2.8 TRPSRV (TRAP DECODE AND DISPATCH) 

27 

2; THIS ROUTINE DECODES THE 8 LSB OF THE TRAP INSTRUCTION 

29 THAT CAUSED TH PROGRAM INTERRUPT. AND TRANSFERS CONTROL 

30 TO THE ROUTINE THRU THE TABLE "TRPTAB" USING THE 8 LSB 

31 OF THE TRAP INSTRUCTION AS AN OFFSET TO THE POINTER TO 

32 THE ROUTINE TO BE ENTERED. 
33 



CZOHE-CO 



(MCRO V04.00 27 JUN-85 12:56:29 PAGE 8 



SEQ a 



1 

2 5.3 PROGRAn AND OR OPERATOR ACTION 

3 

4 5.3.1 PROGRAM START UITH ALL SWITCHES DOWN 

5 

6 5.3.1.1 REFER TO SECTIONS 4.3.1 AND 4.3.2 FOR INITIAL PROGRAM 

7 BEHAVIOR . 
8 

9 5.3.1.2 AFTER "R" HAS BEEN TYPED BY THE PROGRAM, TEST EXECUTION 

10 UILL BEGIN. EACH TEST WILL BE REPEATED A SELECTED NUMBER 

11 OF ITERATIONS (SEE LISTING FOR EXACT NUMBER FOR EACH TEST) 

12 AND THEN THE PROGRAM UILL PROCEED TO THE NEXT TEST. 
13 

14 5.3.1.3 WHEN ALL ITERATIONS HAVE BEEN COMPLETED. THE PROGRAM 

15 MILL TYPE "CZOHE-C AND THEN RESTART TESTING AT TEST 1 

16 (LOCATION Tl IN THE PROGRAM). 
17 

18 5.3.1.4 IF AN ERROR OCCURS. THE PROGRAM UILL TYPE AN APPROPRIATE 

19 ERROR MESSAGE. AND THEN CONTINUE THE TEF^ IN PROGRESS. 
20 

21 5.3.2 PROGRAM START UITH SUOO-1 

22 

23 THE PROGRAM UILL PERFORM AS DESCRIBED IN 4.3.1 AND 5.3.1 

24 

25 5.3.3 PROGRAM START UITH SUOl-1 

26 

27 5.3.3.1 REFER TO SECTION 4.3.4 FOR INITIAL PROGRAM BEHAVIOR 

28 

29 5.3.3.2 TEST EXECUTION UILL START AT THE ADDRESS SPECIFIED 

30 AND UILL CONTINUE AS DESCRIBED IN 5.3.1.2 
31 

32 5.3.3.3 AFTER "CZDHE-C HAS BEEN TYPED. THE PROGRAM UILL 

33 RESUME TESTING AT TEST 1 
34 

35 5.3.4 PROGRAM OPERATION UITH SU15-1 

36 

37 SAME AS 5.3.1. EXCEPT THAT IN THE CASE OF AN ERROR. 

38 THE PROGRAM UILL HALT AFTER THE ERROR TYPEOUT. AND 

39 THE PC*2 OF THE CALL TO THE ERROR ROUTINE UILL BE 

40 DISPLAYED IN RO. 
41 

42 5.3.5 PROGRAM OPERATION UITH SU13«1 

43 

44 SAME AS 5.3.1 EXCEPT THAT NO ERROR TYPEOUTS UILL OCCUR 

45 

46 5.3.6 PROGRAM OPERATION UITH SUll-1 

47 

48 SAME AS 5.3.1 EXCEPT THAT EACH TEST UILL BE REPEATED ONCE 

49 ONLY 
50 

51 5.3.7 PROGRAM OPERATION UITH SUlO-1 

52 

53 SAME AS 5.3.1. EXCEPT THAT IN THE CASE OF AN ERROR 

54 THE CURRENT TEST UILL BE ABORTED. AND THE PROGRAM 

55 UILL PROCEED TO THE NEXT TEST IN SEQUENCE. 
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1 

2 5. CCONT'D) 

3 

4 5.3.8 PROGRAn OPERATION WITH SW14-1, OR SU09-1 

5 

6 THESE FUNCTIONS ARE NORMALLY USED FOR TROUBLE SHOOTING. 

7 SEE SECTION 6.3 FOR THEIR USE. 
8 

9 6. ERRORS 

10 

11 6.1 ERROR HALTS 

12 

13 THE ERROR MESSAGE FORMAT FOR ALL ERROR TYPEOUTS 

14 IS AS FOLLOWS 
15 

16 PC*2 MESSAGE 

17 HEADER (IF APPLICABLE) 

18 DATA (IF APPLICABLE) 
19 

20 UHERc 

21 PC^2 IS THE ADDRESS OF THE CALL TO THE ERROR HANDLER * 2 

22 MESSAGE IS AN ASCII MESSAGE DESCRIBING (BRIEFLY) THE FAILURE 
2S HEADER IS A DESCRIPTION OF THE DATA TO FOLLOW 

24 DATA IS OCTAL INFORMATION RELATING TO THE CAUSE OF THE FAILURE 

25 IF THE SAME ERROR OCCURS IN A GIVEN TEST ON THE SAME 

26 PASS. ANO IF DATA IS ASSOCIATED WITH THAT ERROR, ONLY 

27 DATA IS TYPE ON SUCCEEDING ERROR TYPEOUTS 
28 

29 IF NO DATA IS ASSOCIATED WITH THE ERROR 

30 THE COMPLETE ERROR MESSAGE IS TYPED. 
31 

32 6.1.1 ERROR DESCRIPTIONS 

33 

34 SEE LISTING FOR DETAILS OF ERRORS 

35 

36 6.2 ERROR RECOVERY 

37 

38 6.2.1 SW15-0 

39 

40 IF THE PROGRAM IS RUN WITH SW15-0. NO OPERATOT A HON IS 

41 REQUIRED TO CONTINUE TESTING 

42 6.2.2 SW15-1 
43 

44 IF THE PROGRAM IS RUN WITH SW15-1. TO CONTINUE TESTING 

45 AFTER THE PROGRAM HAS HALTED. PRESS THE PROCESSOR 

46 CONSXE CONTINUE SWITCH 
47 

48 6.2.3 ILLEGAL INTERRUPTS 

49 

50 IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT 

51 SELECTED DURING PROGRAM INITIALIZATION. THE PROGRAM WILL 

52 HALT IN THE TRAPCATCHER. THE ADDRESS AT WHICH 

53 THE PROGRAM HALTS IS 2 GREATER THAN THE ADDRESS 

54 TO WHICH THE INTERRUPT OCCURED. THE PROGRAM MUST BE 

55 RESTARTED AT 200 TO RECOVER FROM THIS ERROR. 
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SEQ iO 



1 

? 6.3 SCOPE LOOPING 

3 

4 6.3.1 TO SCOPE ON A SPECIFIC TEST, SET SU14-1 AND SU13-i 

5 THIS UILL CAUSE THE PROGRAH TO CONTINUOUSLY LOOP ON THE 

6 SA^ TEST. AND UILL CAUSE ALL ERROR TYPEOUTS TO BE INHIBITED 
7 

8 6.3.2 TO SCOPE ON A SPECIFIC VALUE OF A PARAHETER WITHIN 

9 A TEST. SET SU09-1 TO FREEZE THE DATA 

10 CSEE LISTING FOR THOSE TESTS THAT INCORPORATE THIS FEATURE) 

11 

12 6. (CONT'D) 

IS 

14 6.3.3 PROGRAM START TO SCOPE LOOP ON SELECTED TEST 

15 

16 PERFORM SECTION 4.3.4 WITH SU14-1 

17 

18 7. RESTRICTIONS 

19 

20 7.1 STARTING 

21 

22 THE DHll TEST CARD MUST BE INSTALLED 

23 

24 7.2 RUNNING 

25 

26 NONE 
27 

28 8. MISCELLANEOUS 

29 

30 8.1 EXECUTION TIME 

31 

32 THE TIME FOR ONE PASS OF THE PROGRAM (END OF 

33 TYPEOUT OF CZOHE-C TO END OF TYPEOUT OF CZDHE-C) 

34 IS GIVEN FOR VARIOUS PROCESSORS IN THE TABLE BELOW 
35 

36 TIME 

37 PROCESSOR 
38 

39 POP- 11/05. 10 

40 

41 PDP-11/20 
42 

43 P0P-11/40 
44 

45 PDP-11/45 



SEQ 11 
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9. 



PROGRAM DESCRIPTION 



THIS PROGRAM CONSISTS OF 64 (DECIMAL) TESTS 
THAT CHECK, IN INDIVIDUAL TEST LOOPS. CHARACTER LENGTH 
SELECTION FOR EACH LINE AT EACH LENGTH OF 5.6.7. OR 8 
BITS PER CHARACTER. 

A CHARACTER CODE OF 377 IS TRANSMITTED 
ON A EACH LINE 

AT 5.6.7. AND 8 BITS PER CHARACTER. THE RECEIVED CHARACTER 

IS CHECKED TO VERIFY THAT THE DATA IS CORRECT 

(A CODE OF 37. 77. 177. OR 377 IF THE LENGTH IS 5.6.7. OR 

8 BITS. RESPECTIVELY), AND THAT THE RECEIVED 

LINE NUMBER AND CHARACTER STATUS INFORMATION ARE CORRECT. 



10. 



LISTING 
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SEQ 12 



2 
3 
4 

S 
6 

7 

104 
119 
131 
148 
158 
167 
303 
339 
373 
520 
563 
595 
607 
652 
664 
691 
712 
743 
744 
745 
746 
747 
748 
TRAPS. - 
749 
750 

CLEAN END OF PASS 
MESSAGE. 

751 

752 

753 

TCH REGISTER" 
754 



: OHMAC-A - OHll MACRO LIBRARY 

; COPYRIGHT 1985. DIGITAL EQUIPMENT CORP.. MAYNARO, MASS. 01754 



.LIST ME 
.NLIST MC.MO.CND 



i 3 



t CHS REPLACEMENT HISTORY 

t *9 SKONETSKI 26-APR-1985 16:23:08 "FIXED TYPO CAUSING ASSEMBLY ERRORS" 

I *8 SKONETSKI 22-APR-1985 16:48:03 "TYPO ERROR IN VECTOR CHANGE CODE SOURCE FIXED" 

: *7 SKONETSKI 22-APR-198S 16:26:04 "ADDED CODE TO SET VECTORS FOR PUR FAIL. ERRORS. AND EMT 

t *6 SKONETSKI 22-APR-1985 14:22:35 "FIXED BRANCH ERROR IN END OF PASS ROUTINE" 

i *5 SKONETSKI 22-APR-1985 08:28:54 "FIXED BUG (AN OCTASC MACRO CALL UAS URQNG) AND ADDED A 

I *4 SKONETSKI 18- APR- 1985 14:20:15 "ADDED SOFTWARE SWITCH REG SUPPORT. BUT UNTESTED" 

i *S SKONETSKI 12-APR-1985 10:34:52 "FIXED PROBLEMS WITH SPURIOUS CR/LFS" 

( *2 SKONETSKI ll-APR-1985 16:00:24 "ADDED MACRO FROM SYSMAC.SML THAT SIZES FOR SOFTWARE SWI 

I *i SKONETSKI ll-APR-1985 15:49:05 "LIBRARY FOR QHll DIAGNOSTICS" 
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SEO 



2 
3 

5 000000 



.LIST ME 
.NLIST NC.nD.CNO 

.HEAOeii t/ 1972. 1985/. t/DHll CHARACTER LENGTH AND BASIC DATA TEST/, t/CZDHE-CO/ 

(STARTING PROCEDURE 
{LOAD PROGRAM 
(LOAD ADDRESS 000200 
(PRESS START 

(PROGRAM UILL TYPE DHll CHARACTER LENGTH AND BASIC DATA TEST 

(PROGRAM UILL TYPE "VECTOR ADDRESS-' 

(TYPE IN THE ADORESS OF THE RECEIVER INTERRUPT VECTOR 

(FOR THE DHll TO BE TESTED. FOLLOWED BY <CARRIAGE RETURN> 

{PROGRAM UILL TYPE "CONTROL REGISTER ADDRESS-" 

(TYPE IN THE ADDRESS OF THE SYSTEM CONTRX REGISTER 

(FOR THE DHll TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> i 3 

(PROGRAM UILL TYPE "R" TO INDICATE THAT TESTING HAS STARTED 

(AT THE END OF A PASS. PROGRAM UILL TYPE * CZDHE-CO " 

(AND THEN RESUM 1ESTING 



000000 
6 000000 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



.TITLE CZDHE-CO 
.ENABLE ABS 
.NLIST MC.HO.CND 
.LIST ME 
.SYMBOLS 

(SWITCH REGISTER OPTIONS 

SW15-100000 
SW14 -40000 
SU13*20000 
SW12-10000 
SUll-4000 
SUlO-2000 
SU09-1000 
SU08»400 
SU06-100 
SU05-40 
SU04-20 
SW03-10 
SU02-4 
SUOI-2 
SUOO-1 



1-1. HALT ON ERROR 
(-1.L00P ON CURRENT TEST 
1-1. INHIBIT ERROR TYPEOUT 

(-1. INHIBIT ITERATIONS 
(-1. ESCAPE TO NEXT TEST ON ERROR 
1-1. LOOP WITH CURRENT DATA 



I 3 



(RESTART PROGRAM AT SELECTED TEST 
iRESELECT VECTOR AND CONTROL REGISTER 
I ADDRESS AFTER PROGRAM RESTART 
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SEQ 14 



t REGISTER OEriNITIONS 



000000 
000001 
000002 

ooooos 

000004 
000005 
000006 
000007 



177776 
017004 



005746 
005726 
010046 
012600 
024646 
022626 



1 000000 



looogo 

040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



R0*«0 
Rl-#1 
R2-*2 
R3-tf3 
R4-M 
R5-«5 
SP-*6 
PC-*7 



tGENERAL REGISTER 

jGENERAL REGISTER 

iGEfCRAL REGISTER 

iGEfCRAL REGISTER 

:GEfeRM. REGISTER 

i GENERAL REGISTER 
.PROCESSOR STACK POINTER 

s PROGRAM COUNTER 



(LOCATION EQUIVALENCIES 



tSMR-177570 
iLIGHTS-177570 
PS-177776 
STACK-EN0CW*200 



i CONSOLE SWITCH REGISTER 
iPDP-11/45 DISPLAY REGISTER 
iPROCESSOR STATUS UORD 

I START OF PROCESSOR STACK 



i 4 
t 4 

s 3 



i INSTRUCTION DEFINITIONS 



PUSHlSP-5746 
POPlSP-5726 
PUSHRO- 10046 
POPRO- 12600 
PUSH2SP-24646 
P0P2SP -22626 

.MACRO HLT 
EMT 

.ENDH HLT 
t 

BIT15-100000 

BIT14-40000 

BIT13-20000 

BIT12- 10000 

Bin 1-4000 

BITlO-2000 

BIT09-1000 

BIT08-400 

BIT07-200 

BIT06-100 

BIT05-40 

BIT04-20 

BIT03-10 

BIT02-4 

BITOl-2 

BITOO-1 

.CATCH 



(DECREMENT PROCESSOR STACK 
(INCREMENT PROCESSOR STACK 
(SAVE RO ON STACK 
(RESTORE RO FROM STACK 
(DECREMENT STACK TUICE 
(INCREMENT STACK TUICE 

$A 
)A 



WORD 
UORD 



i 3 



C70HC CO 



HACRO V04.00 27-JUN-0S 12:56:^ PAGE IS 



000000 
000200 



iTRAPCATCAER 

.•0 

,REPT 200 







.♦2 






HALT 






.ENOR 


000000 


000002 


.♦2 


000002 


000000 


HALT 


000004 


000006 


.♦2 


000006 


000000 


HALT 


000010 


000012 


.♦2 


000012 


000000 


HALT 


000014 


000016 


.♦2 


000016 


000000 


HALT 


000020 


000022 


.»2 


000022 


000000 


HALT 


000024 


000026 


.-2 


000026 


000000 


HALT 


OOOOSO 


000032 


.♦2 


0000S2 


000000 


HALT 


000034 


000036 


.*2 


000036 


000000 


HALT 


000040 


000042 


.♦2 


0C0042 


000000 


HALT 


000044 


000046 


.♦2 


000046 


000000 


HALT 


000050 


000052 


.♦2 


000052 


000000 


HALT 


000054 


000056 


.♦2 


000056 


000000 


HALT 


000060 


000062 


.♦2 


000062 


000000 


HALT 


000064 


000066 


.♦2 


000066 


000000 


HALT 


000070 


000072 


.♦2 


000072 


000000 


HALT 


000074 


000076 


.♦2 


000076 


000000 


HALT 


000100 


000102 


.♦2 


000102 


000000 


HALT 


000104 


000106 


.♦2 


000106 


000000 


HALT 


000110 


000112 


.♦2 


000112 


000000 


HALT 


000114 


000116 


.*2 


000116 


000000 


HALT 


0001% 


000122 


.♦2 


000122 


000000 


HALT 


000124 


000126 


.*2 


000126 


000000 


HALT 


0001 SO 


000132 


.♦2 


000132 


000000 


HALT 


000134 


U00136 


.♦2 


000136 


000000 


HALT 


000140 


000142 


.♦2 


000142 


000000 


HALT 


000144 


000146 


.*2 



FOR ILLEGAL INTERRUPTS 



iUNEXPECTEO TRAP TO THIS LOCATION 
: EXAMINE STACK TO FIND CAUSE 

8 UNEXPECTED TRAP TO THIS LOCATION 
sEXAHINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
lEXAHINE STACK TO FIND CAUSE 
iUNEXPECTEO TRAP TO THIS LOCATION 
sEXAHINE STACK TO FIND CAUSE 
iUNEXPECTEO TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
: UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 



CZOHECO MACRO V04.00 27-JUN-S5 12:56:2€ PAGE 15 



000146 


000000 


HALT 


000150 


000152 


. *2 


000152 


000000 


HALT 


000154 


000156 


. *2 


000156 


000000 


HALT 


000160 


000162 


.♦2 


000162 


000000 


HALT 


000164 


000166 


.♦2 


000166 


000000 


HALT 


000170 


000172 


.♦2 


000172 


000000 


HALT 


000174 


000176 


.♦2 


000176 


000000 


HALT 


000200 


000202 


.♦2 


000202 


000000 


HALT 


000204 


000206 


.♦2 


000206 


000000 


HALT 


000210 


000212 


.«2 


000212 


000000 


HALT 


0002 t 4 


000216 


.♦2 


000216 


000000 


HALT 


000220 


000222 


.♦2 


000222 


000000 


HALT 


0C0224 


000226 


.«2 


000226 


000000 


HALT 


000230 


000232 


.*2 


000232 


000000 


HALT 


000234 


000236 


.*2 


000236 


000000 


HALT 


000240 


000242 


.«2 


000242 


000000 


HALT 


000244 


000246 


.*2 


00024*/ 


000000 


HALT 


000250 


000252 


.*2 


000252 


000000 


HALT 


000254 


000256 


.♦2 


000256 


000000 


HALT 


000260 


000262 


.*2 


000262 


000000 


HALT 


000264 


000266 


.*2 


000266 


000000 


HALT 


000270 


000272 


.*2 


000272 


000000 


HALT 


000274 


000276 


.♦2 


000276 


000000 


HALT 


000300 


000302 


.♦2 


000302 


000000 


HALT 


000304 


000306 


.♦2 


000306 


000000 


HALT 


000310 


000312 


.*2 


000312 


000000 


HALT 


000314 


000316 


,♦2 


000316 


000000 


HALT 


000320 


000322 


.♦2 


000322 


000000 


HALT 


000324 


000326 


.♦2 


000326 


000000 


HALT 



;EX*riINE STACK TO FIND CAUSE 
, UNEXPECTED TRAP TO THIS LOCATION 
J EXAMINE STACK TO FIND CAUSE 
; UNEXPECTED TRAP TO THIS LOCATION 
s EXAMINE STACK TO FIND CAUSE 
: UNEXPECTED TRAP TO THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 
•.UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
.-UNEXPECTED TRAP TO THIS LOCATION 
J EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
.UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
I UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 



CZONCCO 



MACRO V04.00 



27-JUN-85 



12:56:29 PAGE 15-2 



000330 


000332 


.♦2 


000332 


000000 


HALT 


000334 


000336 


.♦2 


000336 


000000 


HALT 


000340 


000342 


.♦2 


000342 


000000 


HALT 


000344 


000346 


.♦2 


000346 


000000 


HALT 


000350 


000352 


,♦2 


000352 


000000 


HALT 


000354 


000356 


.♦2 


000356 


000000 


HALT 


000360 


000362 


.♦2 


000362 


000000 


HALT 


000364 


000366 


.♦2 


000366 


OOOOCO 


HALT 


000370 


000372 


.♦2 


000372 


000000 


HALT 


000374 


000376 


.♦2 


000376 


000000 


HALT 


000400 


000402 


.♦2 


000402 


000000 


HALT 


000404 


000406 


.♦2 


0C0406 


000000 


HALT 


000410 


000412 


.♦2 


000412 


000000 


HALT 


000414 


000416 


.♦2 


000416 


000000 


HALT 


000420 


000422 


.♦2 


000422 


000000 


HALT 


000424 


000426 


.♦2 


000426 


000000 


HALT 


000430 


000432 


.♦2 


000432 


000000 


HALT 


000434 


000436 


.♦2 


000436 


000000 


HALT 


000440 


000442 


.♦2 


000442 


000000 


HALT 


000444 


000446 


.*2 


000446 


000000 


HALT 


000450 


000452 


.*2 


000452 


000000 


HALT 


000454 


000456 


.*2 


000456 


000000 


HALT 


000460 


000462 


.*2 


000462 


000000 


HALT 


000464 


000466 


.♦2 


000466 


000000 


HALT 


000470 


000472 


.♦2 


000472 


000000 


HALT 


000474 


000476 


.*2 


000476 


000000 


HALT 


000500 


000502 


.*2 


000502 


000000 


HALT 


000504 


000506 


.*2 


000506 


000000 


HALT 


000510 


000512 


.♦2 



; UNEXPECTED TRAP TO THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 
: UNEXPECTED TRAP TO THIS LOCATION 
J EXAMINE STACK TO FIND CAUSE 
: UNEXPECTED TRAP TO THIS LOCATION 
5 EXAMINE STACK TO FIND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
: EXAMINE STACK TO FIND CAUSE 
! UNEXPECTED TRAP TO THIS LOCATION 
: EXAMINE STACK TO FIND CAUSE 
5 UNEXPECTED TRAP TO THIS LOCATION 
: EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
: EXAMINE STACK TO FIND CAUSE 
; UNEXPECTED TRAP TO THIS LOCATION 
s EXAMINE STACK TO FIND CAUSE 
; UNEXPECTED TRAP TO THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 
! UNEXPECTED TRAP TO THIS LOCATION 
> EXAMINE STACK TO FIND CAUSE 
lUNEXPECTED TRAP TO THIS LOCATION 
i EXAMINE STACK TO FIND CAUSE 
s UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
J UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
lUNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
lUNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
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000512 


000000 


HALT 


000514 


000516 


.•2 


000516 


000000 


HALT 


000520 


000522 


.*2 


000522 


000000 


HALT 


000524 


000526 


.♦2 


000526 


000000 


HALT 


000530 


000532 


.*2 


0005S2 


000000 


HALT 


000534 


000536 


.*2 


000536 


000000 


HALT 


000540 


000542 


.*2 


000542 


000000 


HALT 


000544 


000546 


.♦2 


000546 


000000 


HALT 


OOOSSO 


000552 


.*2 


000552 


000000 


HALT 


000554 


000556 


.*? 


000556 


000000 


HALT 


000560 


000562 


.«2 


000562 


000000 


HALT 


000564 


000566 


.♦2 


000566 


000000 


HALT 


0C0S70 


000572 


.♦2 


000572 


000000 


HALT 


000574 


000576 


.*2 


000576 


000000 


HALT 


000600 


000602 


.«2 


000602 


000000 


HALT 


000604 


000606 


.*2 


000606 


000000 


HALT 


000610 


000612 


.♦2 


000612 


000000 


HALT 


000614 


000616 


.♦2 


000616 


000000 


HALT 


000620 


000622 


.*2 


000622 


000000 


HALT 


000624 


000626 


.♦2 


000626 


000000 


HALT 


000630 


000632 


.*2 


000632 


000000 


HALT 


000634 


000636 


.*2 


000636 


000000 


HALT 


000640 


000642 


.♦2 


000642 


000000 


HALT 


000644 


000646 


.*2 


000646 


000000 


HALT 


000650 


000652 


.*2 


000652 


000000 


HALT 


000654 


000656 


.♦2 


000656 


000000 


HALT 


000660 


000662 


.♦2 


000662 


000000 


HALT 


000664 


000666 


.«2 


000666 


000000 


HALT 


000670 


000672 


.♦2 


000672 


000000 


HALT 



sEXAMINE STACK TO FIND CAUSE 
[UNEXPECTED TRAP TO THIS LOCATION 
:EXAmNE STACK TO FIND CAUSE 
5 UNEXPECTED TRAP TO THIS LOCATION 
[EXAMINE STACK TO FIND CAUSE 
[UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
[UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
[UNEXPECTED TRAP TO THIS LOCATION 
[EXAMINE STACK TO FIND CAUSE 
[UNEXPECTED TRAP TO THIS LOCATION 
[EXAMINE STACK TO FIND CAUSE 
[UNEXPECTED TRAP TO THIS LOCATION 
[EXAMINE STACK TO FIND CAUSE 
[UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
[UNEXPECTED TRAP TO THIS LOCATION 
[EXAMINE STACK TO FIND CAUSE 
[UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
[UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
[UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
[UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
5 UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
s UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
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000674 


000676 


. *2 


000676 


000000 


HALT 


000700 


000702 


.•2 


000702 


000000 


HALT 


000704 


000706 


.*2 


000706 


000000 


HALT 


000710 


000712 


. *2 


000712 


000000 


HALT 


000714 


000716 


. *2 


000716 


000000 


HALT 


000720 


000722 


.♦2 


000722 


000000 


HALT 


000724 


000726 


.♦2 


000726 


000000 


HALT 


000730 


000732 


. *Z 


000732 


000000 


HALT 


000794 


000736 


.♦2 


000736 


000000 


HALT 


000740 


000742 


. ♦Z 


000742 


000000 


LA At Y 

HALT 


000744 


000746 


- *2 


000746 


000000 


HALT 


000750 


000752 


. *2 


OGOTSc 


oooooo 


HKLT 


000754 


000730 




000736 


AAAAAA 
OOOOOO 


HMLT 


000700 


000762 


. *c 


000762 


AAAAAA 
OOOOOO 


HML 1 


000764 


AAA?££ 

000766 






AAAAAA 


Hfll T 

nnu 1 


000770 


000772 


.♦2 


000772 


OOOOOO 


HALT 


000774 


000776 


.♦2 


000776 


OOOOOO 


HALT 


1 001000 




.SETVEC 



UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
lEXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
I UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
lUNEXPECTEO TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
[UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
lUNEXPECTEO TRAP TO THIS LOCATION 
I EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
lEXAMINE STACK TO FIND CAUSE 
lUNEXPECTEO TRAP TO THIS LOCATION 
lEXAMINE STACK TO FIND CAUSE 
lUNEXPECTEO TRAP TO THIS LOCATION 
lEXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
lEXAMINE STACK TO FIND CAUSE 



CZOHE-CO 
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SEQ 20 



0 t STANDARD INTERRUPT VECTORS 

000200 .<200 
000200 000167 000600 JdP START sGO TO START OF PROGRAM 



1 000204 .TRPDEF 

: DEFINITIONS FOR TRAP SUBROUTINE CALLS 
{POINTERS TO SUBROUTINES CAN BE FOUND STARTING 
sAT LOCATION "TRPTAB" 

000204 TRPDEF SCOPE. t/SCOPE LOOP AND ITERATION HANDLER/ 

104400 SC0PE-TRAP«Y :SC0PE LOOP AND ITERATION HANDLER 

000001 Y-Y*l 

000204 TRPDEF TYPE.t/TELETYPE OUTPUT ROUTINE/ 

104401 TYPE-TRAP* Y ; TELETYPE OUTPUT ROUTINE 

000002 Y-Y*l 

000204 TRPDEF OCTASC. t/OCTAL TO ASCII CONVERSION/ 

104402 OCTASC-TRAP*Y sOCTAL TO ASCII CONVERSION 

000003 Y-Y*l 

000204 TRPDEF INSTR. t/INPUT ASCII STRING/ 

104403 INSTR-TRAP*Y s INPUT ASCII STRING 

000004 Y-Y*l 

000204 TRPDEF INSTER.t /STRING INPUT ERROR/ 

104404 INSTER-TRAP*Y iSTRING INPUT ERROR 

000005 Y-Y*l 

000204 TRPDEF PARAM. t/CONVERT STRING TO OCTAL. CHECK LIMITS/ 

104405 PARAM- TRAP*Y ;C0NVERT STRING TO OCTAL. CHECK LIMITS 

000006 Y-Y*l 

000204 TRPDEF SAVOSP.t/SAVE R0-R5, PC/ 

104406 SAV05P-TRAP*Y :SAVE R0-R5. PC 

000007 Y-Y*l 

000204 TRPDEF RES05, t/RESTORE R0-R5/ 

104407 RESOS-TRAP^Y {RESTORE R0-R5 

000010 Y-Y*l 

000204 TRPDEF SCQPEl.t /CHECK FOR FREEZE ON CURRENT DATA/ 

104410 SC0PE1-TRAP»Y jCHECK FOR FREEZE ON CURRENT DATA 

000011 Y-Y*l 

2 000046 .-46 

3 000046 014456 LOGICAL 

4 000052 . -52 

5 000052 040000 40000 

6 .MACRO COOENl 

7 MOV OHSSR.DHSLR sSET UP ADDRESS OF SILO 

8 INC OHSLR {STATUS REGISTER HIGH BYTE 

9 .ENOM COOEMl 

10 000054 .START DHRVEC.3.4.DHSCR.0,177776.7.10. . .1 



ZOHECO 
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SEQ 21 



0 001000 .-1000 

: PROGRAM INITIALIZATION 
{LOCK OUT INTERRUPTS 
iSET UP PROCESSOR STACK 
sSET UP POWER FAIL VECTOR 
•.CLEAR PROGRAM FLAGS AND COUNTS 
;TYPE TITLE MESSAGE 











TTP MR 


** • 




SIZE 














TTF MR 




• QPT IIP TBftrr TQftP 


RETURN 








i 1 IJ IV 






CUP' 




1 77^70 


; SWITCH DHSCR ADDRESS 




4 










1 TRHTC • 
^xun 1 9 . 




1 77^70 


s LIGHTS i 




4 

M 








176764 


START • 


HQU 


If t ■ w 


iLOCK OUT INTERRUPTS 




4 


OA1A19 


019706 


017004 






MOV 


•STACK SP 


iSET UP PROCESSOR STACK 






WXVXw 


019709 








MOV 




! POINT TO VECTOR AREA , 


7 
r 


001099 


019799 








MOV 


4PFAIL (R21« 


:SET UP POWER FAIL TRAP 




7 


001026 


012722 


000340 






MOV 


0340. CR2)« 

wi*^W 1 V"fc^^ 


s SERVICE AT LEVEL 7 




7 


001032 


012722 


014616 






MOV 


TERRORS. (R2)t 


: ERROR HANDLER 




7 


001036 


012722 


000340 






MOV 


0340. (R2)* 

w<*^W f \ ^ ^ 


; SERVICE AT LEVEL 7 


( 


7 

f 


001042 


012722 


015030 






MOV 


tTRPSRV. CR2)« 


iGENERAL HANDLER DISPATCH SERVICE 




7 


001046 


012712 


000340 






MOV 


•340. CR2) 

WW^W0 X >*b ^ 


t SERVICE AT LEVEL 7 


1 


8 


0C10S2 


005067 


014674 






CLR 


STFLG 


(CLEAR TEST START FLAG 




0010S6 


005067 


014630 






CLR 


PASCNT 

■ FvW^#lv ■ 


•CLFAR PASS rOUNT 






001062 


005067 


014626 






CLR 


ERRCNT 


; CLEAR ERROR COUNT 






001066 


005067 


014616 






CLR 


ERRFL6 


; CLEAR ERROR FLAG 






001072 


005067 


014612 






CLR 


ERRFLG 


; CLEAR LAST ERROR PC 






001076 


016746 


176702 






MOV 


4. -(SP) 


: PUSH TRAP VECTOR 


> 


4 


001102 


016746 


176700 






MOV 


6. -CSP) 




! 


4 


001106 


012767 


001122 


176670 




MOV 


«ll. 4 


i SET UP TRAP VECTOR 


t 


4 


001114 


005777 


177660 






TST 


8SUR 


i TEST SWITCH REGISTER ADDRESS 


I 


4 


001120 


000405 








BR 


2t 


: IF SUCCESSFUL. LEAVE IT ALONE 


i 


4 


AA1 1 99 








It: 








t 


4 


001122 


012767 


000176 


177650 




MOV 


«176. SUR 


; POINT TO SOFT SWITCH DHSCR 


I 


4 


001130 


005067 


177646 






CLR 


LIGHTS 


: 0 MEANS WE ARE NOT GOING TO USE 


LIGHTS 


001134 








2t: 








i 


5 


001134 


005726 








TST 


(SP)» 


: CLEAN UP STACK 


{ 


4 


001136 


005726 








TST 


(SP)* 




s 


4 


001140 


012667 


176642 






MOV 


(SP)». 6 




1 


4 


001144 


012667 


176634 






MOV 


(SP)». 4 




t 


4 


001150 


104401 


016130 






TYPE 


.MTITLE 


;TYPE TITLE MESSAGE 






001154 


005767 


014570 






TST 


INIFLG 


: CHECK INITIALIZATION FLAG 














.IF NB 


<OHRVEC> 








001160 


001001 








BNE 


VECl 


sIF NOT 0. CHECK SWITCHES 




















(FOR REINITIALIZATION 














.IFF 




















BNE 


BEGIN 


J IF NOT 0. START TEST 














.ENOC 




















.IF NB 


<> 


















SIZE: 


CLR 


RO 


















MOV 


«2t.8«4 


;SET UP TIME OUT RETURN 














11: 


TST 


(RO)* 


:WILL TRAP WHEN NO MEMORY 


: 


9 












BR 


It 


{LOCATION RESPONDED. CONTINUE 














21: 


MOV 


RO.HCORE 


{RO CONTAINS ADDRESS OF 
















SUB 


•2.HC0RE 


iNON EXISTANT MEMORY 


s 


9 












MOV 


«6.8«4 


{RESTORE TRAPCATCHER 
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.ENOC 

.IF NB <> 

TRACER: nOV *1».8*10 

SXT RO 

MOV ««TT.TRTRET 

BR 21 

II: MOV WTLTRTRET 

MOV «12.8«10 

MOV «TRTRET.M16 

.ENOC 

.IF NB <OHRVEC> 











. Lr o 


K > 












TPP 
• xrr 


QD 

TCT 

19 1 

RFD 


TMTPI C 
l.n±r Lu 




V9£ Iff 


wwvx 


Xf fwvw 


vFn * 

WClvX . 


RTT 
DX I 






00144^ 








BFQ 


RFCTN 


001174 








VFC9 • 
















HOV 
ruf w 


MOO B1 


001200 


012702 

WAK f WC 


000302 






MOV 


4302 R2 


001204 


012703 


000004 






MOV 


M R3 


0C1210 


010211 






11' 


MOV 


R2 (Rl) 


001212 


005012 








CLR 




001214 


060301 








ADD 


R3 Rl 


001216 


060302 








AOO 


R3,R2 


001220 


020127 


001000 






CMP 


Rl 41000 


001224 


001371 








BNE 


1* 


001226 


104403 








INSTR 




001230 


016210 








MVECTOR 




001232 


104405 








PARAM 




001234 


000300 








300 




001236 


000770 








770 




001240 


015700 








OHRVEC 




001242 


003 






.BYTE 


3 




001243 


004 






.BYTE 


4 




001244 


104403 








INSTR 




001246 


016232 








MREGAO 




001250 


104405 








PARAM 




001252 


000000 








0 




001254 


177776 








177776 




001256 


015656 








DHSCR 




001260 


007 






.BYTE 


7 




001261 


010 






.BYTE 
.ENOC 
.IF NB 


10 

<1> 




001262 










CODEMl 




001262 


016767 


014406 


014406 




MOV 


DHSSR.OHSLI 


001270 


005267 


014402 




.ENOC 


INC 


OHSLR 


001274 


005767 


014450 






TST 


INIFLG 


001300 


001002 








BNE 


BEGIN 


001302 


005167 


014442 






COM 


INIFLG 



i PROGRAM START 

(CHECK FOR PROGRAM START 



SEQ 22 



:SET UP ILLEGAL INSTRUCTION TRAP RETURN 
iDO 11/40. 11/45 INSTRUCTION 
ill/40.45 RTT RETURN FROM TRACE TRAP 

(1105.10.20 RTI RETURN FROM TRACE TRAP 
iRESTROE TRAPCATCHER 
iSET UP TRACE TRAP VECTOR 



;IF INITIALIZE FLAG-0 

(GET VECTOR AND CSR ADDRESS 

:IF SUOO-1. GET NEW VECTOR 
iANO CSR 



(RESTORE TRAPCATCHER 
(IN FLOATING VECTOR AREA 



4 
4 



(INPUT ADDRESS OF DEVICE VECTOR 
(MESSAGE "VECTOR ADDRESS-" 
(CONVERT STRING TO OCTAL 
(LOW LIMIT 

(HIGH LIMIT : 3 

(LOCATIONS TO 8E FILLED 
(NUMBER OF LOCATIONS 
(LS6 MASK 

(INPUT ADDRESS OF DEVICE CSR 
(MESSAGE "CONTROL REGISTER ADDRESS-" 
(CONVERT STRING TO OCTAL 
(LOU LIMIT 
(HIGH LIMIT 

(LOCATIONS TO BE FILLED 
(NUMBER OF LOCATIONS 
(LSB MASK 



(SET UP ADDRESS OF SILO 
(STATUS REGISTER HIGH BYTE 

(IF INITIALIZATION FLAG 
(IS CLEARED 
(SET IT 

( 3 

AT SELECTED ADDRESS 
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001306 


012767 


000340 


176462 


BEGIN: 


nov 


•340. PS 


001314 


012706 


017004 






nov 


•STACK. SP 


001320 


032777 


000002 


177452 




BIT 


•SUOl.SSUR 


001326 


001410 








BEQ 


1* 


001330 


104403 








INSTR 




001332 


016421 








MTSTPC 




001334 


104405 








PARAM 




001336 


000000 








0 




001340 


017500 








17500 




001342 


015716 








RETRN 




001344 


001 






.BYTE 


1 




001345 


001 






• BYTE 


1 




001346 


000410 








BR 




001350 


012767 


001400 


014340 


li: 


MOV 


•Tl. RETRN 


001356 


005767 


014370 






TST 


STFLG 


001362 


001004 








BNE 


3t 


001364 


005167 


014362 






COM 


STFLG 


001370 


104401 


016415 




2%: 


TYPE 


.MR 


001374 


000177 


014316 




3): 


JMP 


8RETRN 



sLOCK OUT INTERRUPTS 
:SET UP PROCESSOR STACK 
:IF SUOl-1 

{GET PC FOR PROGRAM START 
5 GET PC 

jMESSAGE "TEST PC" 

: CONVERT STRING TO OCTAL 



{NORMAL START, TEST 1 

ilF LOOPING. BYPASS TYPEOUT 



;TYPE "R" TO INDICATE START 
:START TESTING 
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SEQ 24 



2 
3 
4 
5 
6 
7 
6 
9 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 



000020 
000000 
000004 
000011 
000777 
107777 
000000 
000001 
000020 



000000 
000005 
000037 
000004 



001400 



100037 



XLINC-LINEX 

XBIT-BITX 

XLENGTH-LENGTX 

CLENGTH-LEN6TC 

CODEX-XCOOE 

RDATA-DATAR 

LINEX-0 

BITX-1 

.REPT 20 

.NLIST 

LENGTX-0 

LENGTC-5 

XCOOE-37 

.LIST 

.REPT 4 

.NLIST 

DATAR- LINEX*400« 100000 ♦XCODE 

• LIST 

CHARTl \LINEX , \BITX . \LENGTX , \LEN6TC .\XCODE . \DATAR 
•NLIST 

LENGTX-LENGTX^l 
LENGTC-LENGTC*1 
XC00E-XC00E*2«1 

• LIST 
.ENOR 
•NLIST 

LINEX-LINEX^l 
B1TX"BITX*BITX 
.LIST 
.ENOR 
LENGTX-0 
LENGTC-5 
XCOOE-37 
.REPT 4 
NLIST 

DATAR-LINEX*400* 100000«XCOOE 
.LIST 

CHMTl \LINEX . \BITX . \LENGTX . \LEN6TC . \XC0OE . VDAT AR 
.NLIST 

LENGTX-LEN6TX«1 
LENGTC-LENGTC*! 
XCWE-XC0DE*2*1 

• LIST 

• ENOR 

CATAR-LINEX*400* 100000*XC0I)E 

CHARTl \LINEX . \BITX , \LENGTX . \LEN6TC . \XCOOE . \OAT AR 



(CHARACTER LENGTH TEST 
I TRANSMIT 1 CHARACTER ON LINE 0 
(CHARACTER LENGTH IS S BITS 
(EXPECTED RECEIVED CHARACTER IS 37 
(LINE SPEED IS 9600 BAUD 



001400 
001400 
001406 
001414 



012767 000340 
012767 000400 
012767 001526 



TS \XN.400.2$ 
176370 Tl: HOV 
014310 NOV 
014276 NOV 



#340 .PS 
•40O.IC0UNT 
«2>. ESCAPE 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 400 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 



SEQ 25 
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001422 
001430 
001436 
001444 
001452 
001460 
001466 
001474 
001502 
001506 
001510 



000002 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



004000 
000037 
000000 
177777 
015756 
033500 
000000 
000001 
014150 

014144 



001514 012705 100037 



0015<;0 
001522 
001524 
001524 

001526 



001530 



001530 
001530 
001556 
001544 



001552 
001560 
001566 
001574 
001602 
001610 
001616 
001624 
001632 
001636 
001640 



020504 
001401 

104000 

10440C 
000001 
000006 
000077 
100077 



014226 
014320 
014212 
014214 
014204 
014174 
014166 
014166 



012767 
012767 
012767 



000003 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



000340 176240 
000400 014160 
001656 014146 



004000 
000077 
000000 
177777 
015756 
033500 
000001 
000001 
014020 

014014 



014076 
014170 
014062 
014064 
0140S4 
014044 
014036 
014036 



.IF le <> 
MOV 

.ENDC 
XN-XN»1 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
MOV 

II: TSTB 
BPL 
MOV 



rlOV 



CMP 
BEQ 
HLT 
EMT 



#.FREEZ1 



«eiT11.0DHSCR 

♦37.T0ATA 

•O.0OHSCR 

♦-1.8DHBC 

«T0ATA.8DHBA 

«33500.80HLPR 

40.SDHLPR 

*1.00HBAR 

VHSCR 

II 

80HNRC.R4 



*100037,R5 



R5,R4 
21 



21: SCOPE 
LENGTX-LEN6TX«1 
LEN6TC-LEN6TC«1 
XC00E-XC00E*2*1 
OATAR-LINEX*400*100000*XCOOE 

CHARTl UINEX . \BITX . \LENGTX .\LENGTC , \XCOOE. \DAT AR 

I CHARACTER LENGTH TEST 
t TRANSMIT 1 CHARACTER ON LINE 0 
{CHARACTER LENGTH IS 6 BITS 
(EXPECTED RECEIVED CHARACTER IS 77 
I LINE SPEED IS 9600 BAUD 



:SET UP TO LOOP UITH DATA 



(MASTER CLEAR INTERFACE 

(CHARACTER TO BE TRANSMITTED • 37( OCTAL) 

(SELECT LINE 0 

(SET UP TO TRANSMIT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

(SET LINE SPEED FOR 9600 BAUD 

(SET CHARACTER LENGTH FOR 5 BITS 

(START TRANSMITTER 

(UAIT TO RECEIVE CHARACTER 

((P4)-RECEIVED CHARACTER 
(IN LOU BYTE. AND LINE NUMBER AND 
(CHARACTER STATUS IN HIGH BYTE 
((R5)-EXPECTED CHARACTER IN LOU BYTE 
(AND LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
(OR LINE NUMBER ERROR 



TS \XN.400.2I 
T2: MOV 
MOV 
NOV 
.IF NB <> 
NOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
NOV 
MOV 
NOV 
MOV 
BIS 
MOV 

II: TSTB 
BPL 
MOV 



♦340. PS 
«400,IC0UNT 
#21. ESCAPE 

«.FREEZ1 



46IT11.8DHSCR 

♦77.TDATA 

M.8DHSCR 

«-1.80HBC 

•TDATA.SOHBA 

•33500. 80HLPR 

«1.B0HLPR 

•l.BOHBAR 

«>HSCR 

II 

a>HNRC.R4 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 400 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

I SET UP TO LOOP UITH JATA 



> 3 



(MASTER aEAR INTERFACE 

(CHARACTER TO BE TRAi^^HITTED - 77( OCTAL) 

(SELECT LINE 0 

(SET UP TO TRANSMIT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

(SET LINE SPEED FOR 9600 BAUD 

(SET CHARACTER LENGTH FOR 6 BITS 

(START TRANSMITTER 

(UAIT TO RECEIVE CHARACTER 

tCR4}-RECEIVED CHARACTER 
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SEQ 26 



001644 012705 100077 



001650 
001652 
001654 
001654 

001656 



001660 



020504 
001401 

104000 

104400 

000002 
000007 
000177 
100177 



001660 

001660 012767 

001666 012767 

001674 012767 



001702 
001710 
001716 
001724 
0017S2 
001740 
001746 
001754 
001762 
001766 
001770 



000004 

012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100S75 
017704 



nov 



CMP 
BEQ 
HLT 
EMT 



•1 00077. R5 



RS.R4 
2> 



21 : SCOPE 
LENGTX-LEN6TX«1 
LENGTC-LENGTC«1 
XCWE-XC00E*2>1 
DATAR-LINEX*400« 100000*XCODE 

CHARTl \LINEX , \BITX . \LEN6TX . \LEN6TC . \XC0OE . \DATAR 

I CHARACTER LENGTH TEST 
I TRANSMIT 1 CHARACTER ON LINE 0 
{CHARACTER LENGTH IS 7 BITS 
{EXPECTED RECEIVED CHARACTER IS 177 
I LINE SPEED IS 9600 BAUD 



I IN LOU BYTE. AND LINE NUMBER AND 
{CHARACTER STATUS IN HIGH BYTE 
((RS)-EXPeCTED CHARACTER IN LOU BYTE 
(AND LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH, DATA 
(OR LINE NUMBER ERROR 



000340 176110 
000400 014030 
002006 014016 



004000 
000177 
000000 
177777 
015756 
OS3500 
000002 
000001 
013670 

013664 



013746 
014040 
013732 
013734 
013724 
013714 
013706 
013706 



001774 012705 100177 



TS \XN.400.2t 
13: NOV 
NOV 
NOV 
.IF NB <> 
NOV 

.ENOC 
)m«XN«l 

NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
BIS 
NOV 
TSTB 
BPL 
NOV 



NOV 



1»: 



♦340. PS 
•400.IC0UNT 
•2*. ESCAPE 

•.PREEZl 



feiTll.BOHSCR 

•177.T0ATA 

«0.aOHSCR 

•-l.MHBC 

•TOATA.iOHBA 

•S3500.BOMLFR 

«e.iOHLPR 

•l.iONBAR 

»NSCR 
1» 

;.R4 



6100177. R5 



002000 
002002 
002004 
002004 

002006 



020504 
001401 

104000 

104400 
000003 
000010 
000377 
100377 



R5.R4 
21 



CNP 
BEQ 
»«.T 
EHT 

21: SCOPE 
LENBTX-UilCTX*! 
LENBTC-LOKTCa 
)(CQ0C"XCQ0C*2* 1 
MTMI"UNEXMOO*100000*XCOOE 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 400 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP VZTH DATA 



iNASTER aEAR INTERFACE 

iCHARACTER TO BE TRANSMITTED • 177(0CTAL) 

(SELECT LINE 0 

(SET UP TO TRANSNIT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSNITTEO 

(SET LINE SPEED FOR 9600 BAUD 

(SET CHARACTER LENGTH FOR 7 BITS 

(START TRANSMITTER 

lUAIT TO RECEIVE CHARACTER 

((R4}-RECEIVE0 CHARACTER 
(IN LOU BYTE. AND LINE NUMBER AND 
iCHARACTER STATUS IN HIGH BYTE 
((R5)-EXPCCTE0 CHARACTER IN LOW BYTE 
(AM) LINE NUMBER AM) CHARACTER 
(STATUS IN HIGH BYTE 

lARE EXPECTED AND RECEIVED DATA THE SANE 
iCHARACTER LENGTH. DATA 
(OR LINE NUNKR ERROR 
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SCO 27 



002010 



CHMTl \LZNEX . \6ITX . \LENGTX , \LEN6TC . \XC0OE . \OAT AR 



002010 

002010 012767 

002016 012767 

002024 012767 



0020S2 
002040 
002046 
002054 
002062 
002070 
002076 
0C2104 
002112 
002116 
002120 



000005 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



0021 SO 
002132 
002154 
002134 

002136 



020504 
001401 

104000 

104400 
000004 
000011 
000777 
000001 
000002 
000000 
OOOOOS 
000037 
000004 



000340 
000400 
002136 



004000 

000377 
000000 
177777 
015756 
033500 
000003 
000001 
013540 

013534 



175760 
013700 
013666 



013616 
013710 
013602 
013604 
013574 
013564 
013556 
013556 



002124 012705 100377 



iCHMMCTER LENGTH TEST 
iTMNSniT 1 CHARACTER ON LINE 0 
iCNARACTER LENGTH IS 10 BITS 
{EXPECTED RECEIVED CHARACTER IS 377 
iLINE SPEED IS 9600 BAUD 



TS \XN.400.2I 
T4j NOV 
NOV 
NOV 

.V m <> 

NOV 

.ENDC 
XN>XN*1 

NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
BIS 
NOV 
TST8 
8PL 
NOV 



NOV 



1*: 



CHP 
8EQ 
HLT 
ENT 

SCOPE 



4340.PS 
•400.IC0UNT 
•2 (.ESCAPE 

♦.FREEZl 



•eiT11.90HSCR 

♦377.T0ATA 

•O.0OHSCR 

♦-1.80HBC 

♦TOATA.OOHBA 

♦33500. SDHLPR 

«3,S0HLPR 

«1,B0HBAR 

SOHSCR 

1< 

8DHNRC.R4 



♦100377. R5 



R5,R4 
2« 



2t: 

LENGTX-LENGTX«1 
LENGTC-LENGTC*1 
XC0DE-XC0OE*2»l 
LINEX-LINEX^l 
BITX-BITX*BITX 
LENGTX-0 
LENGTC-S 
XCWE-37 
.REPT 4 
.NLIST 

DATAR-LINEXA400* 100000*XCODE 
.LIST 

CHARTl VLINEX . \8ITX . VLEN6TX .\LEN6TC .\XC00E. \0ATAR 
.NLIST 

LEN6TX-LENGTX*1 

LENGTC-LEN6TC*1 

XC00E-XC00E*2*1 

.LIST 

.ENOR 



iOISABLE ALL INTERRUPTS 
••SET UP FOR 400 ITERATIONS 
tSET UP 10 ESCAPE TO NEXT TEST 

jSET UP TO LOOP UITH DATA 



jNASTER CLEAR INTERFACE 

iCHARACTER TO BE TRANSMITTED • 377(0CTAL) 

I SELECT LINE 0 

I SET UP TO TRANSHIT 1 BYTE 

iSET UP ADDRESS OF CHARACTER tO BE TRANSNITTEO 

I SET LINE SPEED FOR 9600 BAUD 

(SET CHARACTER LENGTH FOR 10 BITS 

i START TRANSMITTER 

:UAIT TO RECEIVE CHARACiEft 

i(R4) -RECEIVED CHARACTER 
tIN LOU BYTE. AND LINE NUMBER AND 
(CHARACTER STATUS IN HIGH BYTE 
:CR5)-EXPECTED CHARACTER IN LOW BYTE 
;ANO LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
(OR LINE NUMBER ERROR 
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SEQ 26 



002140 



100437 



002' 4r 

002140 012767 

002146 012767 

002154 012767 



000340 175630 
000400 013550 
002266 013536 



002162 
002170 
002176 
002204 
002212 
002220 
0C2226 
002234 
002242 
002246 
002250 



000006 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



004000 
000037 
000001 
177777 
015756 
033500 
000000 
000002 
013410 

013404 



002254 012705 100437 



002260 
002262 
002264 
002264 

002266 



002270 



020504 
001401 

104000 

104400 
000001 
000006 
000077 
100477 



013466 
013560 
013452 
013454 
013444 
013434 
013426 
013426 



002270 

002270 012767 000340 175500 

002276 012767 000400 013420 

002304 012767 002416 013406 



DATAR-LINEX*400* 100000 'XCODE 

CHARTl \LINEX . \BITX . \LENGTX . \LENGTC . \XC00E . \OAT AR 

: CHARACTER LENGTH TEST 
.•TRANSMIT 1 CHARACTER ON LINE 1 
; CHARACTER LENGTH IS 5 BITS 
{EXPECTED RECEIVED CHARACTER IS 37 
iLINE SPEED IS 9600 BAUD 



TS \XN.400.2* 

T5: MOV 
NOV 
NOV 

•IF NB <> 
NOV 

.ENDC 
XN-XN*1 

NOV 
NOV 
NOV 
MOV 
MOV 
MOV 
BIS 
MOV 

II: TSTB 
BPL 
NOV 



MOV 



♦340.PS 
MOO. I COUNT 
«2 I. ESCAPE 

♦.FREEZl 



«6ITll.fN)HSCR 

♦37.TDATA 

♦1.60HSCR 

«'1.8DHBC 

4TDATA.0OHSA 

«33500.90HLPR 

«0.S0HLPR 

«2.80HBAR 

BDHSCR 

1* 

80HNRC.R4 



•100437, R5 



CMP 
BEQ 

HLT 
EMT 



R5.R4 
21 



21: SCOPE 
LENGTX-LENGTXtl 
LENGTC-LENGTC*! 
XCQ0E-XC00E*2»1 
DATAR-LINEXA400* 100000 tXCODE 

CHARTl \LINEX . \BITX , \LENGTX , \LENGTC . \XC00E . \DAT AR 

: CHARACTER LENGTH TEST 
: TRANSMIT 1 CHARACTER ON LINE 1 
(CHARACTER LENGTH IS 6 BITS 
;EXPECTED RECEIVED CHARACTER IS 77 
iLINE SPEED IS 9600 BAUD 



s DISABLE ALL INTERRUPTS 
sSET UP FOR 400 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP UITH DATA 



jMASTER CLEAR INTERFACE 

jCHARACTER TO BE TRANSMITTED - 37(0CTAL) 

(SELECT LINE 1 

;SET UP TO TRANSMIT 1 BYTE 

iSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

:SET LINE SPEED FOR 9600 BAUD 

I SET CHARACTER LENGTH FOR 5 BITS 

; START TRANSMITTER 

iUAIT TO RECEIVE CHARACTER 

i ( R4 )-'RECEIVED CHARACTER 

ilN LOU BYTE. AND LINE NUMBER AND 

{CHARACTER STATUS IN HIGH BYTE 

i(RS)-EXPECTED CHARACTER IN LOU BYTE 

sANO LINE NUMBER AND CHARACTER 

i STATUS IN HIGH BYTE 

iARE EXPECTED AND RECEIVED DATA THE SAME 
{CHARACTER LENGTH. DATA 
:0R LINE NUMBER ERROR 



TS \XN.400.2» 
T6: MOV 
MOV 
MOV 
•IF NB <> 
MOV 



•340. PS 
•40O,IC0UNT 
•2 1. ESCAPE 

•.FREEZl 



{DISABLE ALL INTERRUPTS 
iSET UP FOR 400 ITERATIONS 
{SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP UITH DATA 
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SEQ 29 



.ENDC 





000007 






XN*XN*1 






002312 


A4 ^^^^ 

012777 


AAA 

004000 


A4 W 

013336 




nov 


TOlTll .SDHSCR 


002320 


012767 


000077 


013430 




nov 


♦77, TDATA 


002326 


012777 


000001 


A4 W 

013322 




MOV 


41 ,80HSCR 


002394 


Al ^^^T 

012777 


177777 


A« W '^M 

013324 




NOV 


4-l,80HBC 


002342 


012777 


015756 


013314 




nov 


«T0ATA.8DHBA 


002350 


012777 


AV W AA 

033500 


A 4 WAA 

013304 




MOV 


awcaa nAi_ii nn 

♦33500. 80HLPR 


002356 


052777 


000001 


013276 




BIS 


41.SDHLPR 


002364 


012777 


000002 


013276 




MOV 


♦2.8DHBAR 


002372 


105777 


A 4 A 

013260 




1> : 


TSTB 


8UHSCR 


002376 


100375 








BPL 


1» 


002400 


Ai ^^Aa 

017704 


At v^e^ 

013254 






MOV 


BDnNRC>K4 


002404 


012705 


100477 






MOV 


4100477.R5 


002410 


020504 








CMP 


R5.R4 


002412 


001401 








BEQ 


2* 


002414 










HLT 




002414 


104000 








EMT 




0C2416 


104400 






2t: 


SCOPE 





0C2420 



000002 
000007 
000177 
100577 



; MASTER CLEAR INTERFACE 

J CHARACTER TO BE TRANSMITTED - 77( OCTAL) 

;SELECT LINE 1 

sSET UP TO TRANSMIT 1 BYTE 

;SET UP ADDRESS Of CHARACTER TO BE TRANSMITTED 

iSET LINE SPEED FOR 9600 BAUD 

8 SET CHARACTER LENGTH FOR 6 BITS 

; START TRANSMITTER 

iUAIT TO RECEIVE CHARACTER 

: ( R4 )-RECEIVED CHARACTER 

sIN LOU BYTE. AND LINE NUMBER AND 

s CHARACTER STATUS IN HIGH BYTE 

:(R5)-EXPECTED CHARACTER IN LOU BYTE 

sAND LINE NUMBER AND CHARACTER 

: STATUS IN HIGH BYTE 

sARE EXPECTED AND RECEIVED DATA THE SAME 
: CHARACTER LENGTH. DATA 
sOR LINE NUMBER ER>tOR 



LENGTX-LEN6TX»1 
LENGTC-LENGTC*1 
XCODE-XC0DE*2*l 
DATAR- LINEX*400* 100000 *XCODE 

CHARTl \LINEX . \BITX . \LENGTX . \LENGTC . \XCODE . \DATMt 

CHARACTER LENGTH TEST 
TRANSMIT 1 CHARACTER ON LINE 1 
CHARACTER LENGTH IS 7 BITS 
EXPECTED RECEIVED CHARACTER IS 177 
LINE SPEED IS 9600 BAUD 



002420 



TS \XN.400.2» 



002420 


012767 


000340 


3 ■'5350 


T7: 


MOV 


♦340. PS 


002426 


012767 


000400 


013270 




MOV 


♦400.IC0UNT 


002434 


012767 


002546 


013256 


.IF NB 


MOV 

< > 


♦2*. ESCAPE 












MOV 


•.FREEZl 










.ENDC 






000010 






XN-XN*1 






002442 


012777 


004000 


013206 




MOV 


♦BIT11.8DHSCR 


002450 


012767 


000177 


013300 




MOV 


♦177,T0ATA 


002456 


012777 


000001 


013172 




nov 


♦1.80HSCR 


002464 


012777 


177777 


013174 




MOV 


♦-1.8DHBC 


002472 


012777 


015756 


013164 




MOV 


♦TDATA, 0OHBA 


002500 


012777 


033500 


013154 




MOV 


♦33500. 8DHLPR 


002506 


052777 


000002 


013146 




BIS 


♦2.80HLPR 


002514 


012777 


000002 


013146 




MOV 


♦2.8DHBAR 


002522 


105777 


013130 




1*: 


TSTB 


80HSCR 


002526 


100375 








BPL 


1* 


002530 


017704 


013124 






MOV 


8DHNRC.R4 



: DISABLE ALL INTERRUPTS 
;SET UP FOR 400 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

iSET LP TO LOOP UITH DATA 



;HASTER CLEAR INTERFACE 

jCHARACTER TO BE TRANSMITTED - 177(0CTAL) 

; SELECT LINE 1 

jSET UP TO TRANSMIT 1 BYTE 

:SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

:SET LINE SPEED FOR 9600 BAUD 

iSET CHARACTER LENGTH FOR 7 BITS 

s START TRANSMITTER 

iUAIT TO RECEIVE CHARACTER 

:(R4}-RECEIVED CHARACTER 

I IN LOU BYTE. AND LINE NUMBER AND 

: CHARACTER STATUS IN HIGH BYTE 



SEQ 30 
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002SS4 01270S 100577 



002540 020504 

002542 001401 
002544 

002544 104000 

002546 104400 
000003 
000010 
000377 
100777 

002550 



002550 

002550 012767 

002556 012767 

002564 012767 



002572 
002600 
002606 
002614 
002622 
002630 
002636 
002644 
002652 
002656 
002660 



000011 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



002670 
002672 
002674 
002674 

002676 



020504 
001401 

104000 

104400 
000004 
000011 
000777 
000002 
000004 
000000 



000340 175220 
000400 013140 
002676 013126 



004000 

000377 
000001 
177777 
015756 
033500 
000003 
000002 
013000 

012774 



013056 
013150 
013042 
013044 
013034 
013024 
013016 
013016 



002664 012705 100777 



C1P 
BEQ 
HLT 
EMT 



«1 00577. R5 



R5.R4 
2) 



:(RS)-EXPECTED CHARACTER IN LOW BYTE 
iANO LINE MU»«ER AND CHARACTER 
sSTATUS IN HIGH BYTE 

iARE EXPECTED AND RECEIVED DATA THE SAriE 
(CHARACTER LENGTH, DATA 



tOR LINE NUMBER ERROR 

2): SCOPE 

LENGTX-LENGTX*! 

LENGTC-LENGTC»1 

XCO0J-XC0OE*2«l 

DATAR-LINEX*400*100000»XC0DE 

CHARTl \LINEX . \BITX . \LENGTX . \LENGTC . \XCODE , \DAT AR 

{CHARACTER LENGTH TEST 
{TRANSMIT 1 CHARACTER ON LINE 1 
{CHARACTER LENGTH IS 10 BITS 
{EXPECTED RECEIVED CHARACTER IS 377 
{LINE SPEED IS 9600 BAUD 



TS \XN.400.2« 
TIO: NOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*! 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
MOV 

1$: TSTB 
BPL 
MOV 



MOV 



«340.PS 
•4OO.IC0UNT 
♦2 «. ESCAPE 

♦.FREEZl 



4BIT11.B0HSCR 

•377.TDATA 

«1.80HSCR 

«-l,8DHBC 

•T0ATA.8OHBA 

#33500. 80HLPR 

«3.8DHLPR 

♦2.80H6AR 

80HSCR 

1» 

80HNRC.R4 



♦100777. R5 



CMP R5,R4 
BEQ 21 
HLT 
EMT 

2t : SCOPE 

LENGTX-LENGTX*1 

LENGTC-LENGTC*1 

XC00E-XC00E*2*1 

LINEX-LINEX*! 

BITX-BITX«BITX 

LENGTX-0 



{DISABLE ALL INTERRUPTS 
{SET UP FOR 400 ITERATIONS 
{SET UP TO ESCAPE TO NEXT TEST 

{SET UP TO LOOP UITH DATA 



MASTER CLEAR INTERFACE 

CHARACTER TO BE TRANSMITTED - 377(0CTAL) 

SELECT LINE 1 

SET UP TO TRANSMIT 1 BYTE 

SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

SET LINE SPEED FOR %00 BAUD 

SET CHARACTER LENGTH FOR 10 BITS 

START TRANSMITTER 

WAIT TO RECEIVE CHARACTER 

(R4)-RECEIVE0 CHARACTER 
IN LOW BYTE. AND LINE NUMBER AND 
CHARACTER STATUS IN HIGH BYTE 
(R5)-EXPECTED CHARACTER IN LOW BYTE 
AND LINE NUMBER AND CHARACTER 
STATUS IN HIGH BYTE 

ARE EXPECTED AND RECEIVED DATA THE SAME 
{CHARACTER LENGTH. DATA 
(OR LINE NUMBER ERROR 
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SEQ 31 



000005 
000037 
000004 



002700 



002700 
002700 
002706 
002714 



002722 
002730 
002736 
002744 
002752 
002760 
002766 
002774 
003002 
003006 
003010 



101037 



012767 
012767 
012767 



000012 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



003020 
003022 
003024 
003024 

003026 



003030 



020504 
001401 

104000 

104400 

000001 
000006 
000077 
101077 



000340 175070 
000400 013010 
003026 012776 



004000 
000037 
000002 
177777 
015756 
033500 
000000 
000004 
012650 

012644 



012726 
013020 
012712 
012714 
012704 
012674 
012666 
012666 



003014 012705 101037 



LFNGTC-5 
XCa)E-37 
.REPT 4 
.NLIST 

OATAR-LINEX*400* 100000 *XCODE 
.LIST 

CHARTl \LINEX . \BITX , \LENGTX . \LENGTC . \XC0DE . \DAT AR 
.NLIST 

LENGTX-LENGTX*! 

LENGTC-LENGTC*! 

XC00E-XC00E*2*1 

.LIST 

.ENDR 

DATAR-LINEX*400«100000«XC0()£ 

CHARTl \LINEX , \BITX , \LENGTX . \LENGTC . \XCOOE , \DAT AR 

s CHARACTER LENGTH TEST 
i TRANSMIT 1 CHARACTER ON LINE 2 
:CHARACTER LENGTH IS 5 BITS 
{EXPECTED RECEIVED CHARACTER IS 37 
:LINE SPEED IS 9600 BAUD 



TS \XN,400.2$ 
Til: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN>XN*1 

MOV 
MOV 
MOV 
MOV 
MOV 
WV 
BIS 
MOV 
1»: TSTB 
6PL 
MOV 



MOV 



CMP 
BEQ 

HLT 
EMT 



*340,PS 
•400.IC0UNT 
«2». ESCAPE 

«.rREEZl 



«eiT11.8DHSCR 

«37.T0ATA 

*2.80HSCR 

•-l.ttHBC 

*TDATA,S0HBA 

♦33500, SOHLPR 

♦O.eOHLPR 

«4,0OHBAR 

80HSCR 

It 

80HNRC.R4 



«101O37.R5 



R5,R4 
21 



:DISABLE ALL INTERRUPTS 
:SFT UP FOR 400 ITERATIONS 
:SET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP UITH DATA 



i 3 



2*: SCOPE 
LENGTX-LENGTX*1 
LENGTC-LENGTC*! 
XC00E-XC0DE*2a 
DATAR-LINEXA400* 100000 aCOOE 

CHARTl \LINEX . \B1TX . \LEN6TX . \LENGTC . \XCOOE , \DAT AR 



MASTER CLEAR INTERFACE 

CHARACTER TO BE TRANSMITTED - 37( OCTAL) 

SELECT LINE 2 

SET UP TO TRANSMIT 1 BYTE 

SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

SET LINE SPEED FOR 9600 BAUD 

SET CHARACTER LENGTH FOR 5 BITS 

START TRANSMITTER 

WAIT TO RECEIVE CHARACTER 

CR4)-RECEIVED CHARACTER 
IN LOU BYTE. AND LINE NUMBER AND 
CHARACTER STATUS IN HIGH BYTE 
(R5)-EXPECTED CHARACTER TN LOU BYTE 
AND LINE NUMBER AND CHARACTER 
{STATUS IN HIGH BYTE 

iARE EXPECTED AND RECEIVED DATA THE SAME 
{CHARACTER LENGTH. DATA 
:0R LINE NUMBER ERROR 
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SEQ 32 



003030 

003030 012767 000340 

003036 012767 000400 

003044 012767 003156 



003052 
003060 
003066 
003074 
003102 
003110 
003116 
003124 
0C3132 
003136 
007140 



000013 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



004000 
000077 
000002 
177777 
015756 
033500 
000001 
000004 
012520 

012514 



174740 
012660 
012646 



012576 
012670 
012562 
012564 
012554 
012544 
012536 
012536 



003144 012705 101077 



003150 
003152 
003154 
003154 

003156 



003160 



020504 
001401 

104000 

104400 

000002 
000007 
000177 
101177 



003160 

003160 012767 000340 174610 

003166 012767 000400 012530 

003174 012767 003306 012516 



000014 



: CHARACTER LENGTH TEST 
:TRANSHIT 1 CHARACTER ON LINE 2 
s CHARACTER LENGTH IS 6 BITS 
(EXPECTED RECEIVED CHARACTER IS 77 
sLINE SPEED IS 9600 BAUD 



TS \XN.400.2» 
T12: HOV 
MOV 
NOV 
.IF NB <> 
MOV 

.ENOC 
XN-XNfl 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
MOV 
1»: TSTB 
BPL 
MOV 



MOV 



CMP 
BEQ 
HLT 
EMT 



«340.PS 
MOO.ICOUNT 
«2*. ESCAPE 

«,FREEZ1 



OBITll.SOHSCR 

♦77.TDATA 

«2,S0HSCR 

«-l,SDHBC 

«T0ATA,80HBA 

«33500,SDHLPR 

«1.8DHLPR 

M.80HBAR 

80HSCR 

1) 

80HNRC.R4 



«101077.R5 



R5.R4 
2> 



DISABLE ALL INTERRUPTS 
SET UP FOR 400 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

J SET UP TO LOOP WITH DATA 



t 3 



2) : SCOPE 
LENGTX-LENGTX*! 
LENGTC-LENGTC»1 
XC0DE-XC00E*2»1 
0ATAR-LINEX*400f lOOOOO^XCODE 

CHARTl \LINEX , \BITX . \LENGTX , \LENGTC AXCODE. \DATAR 

s CHARACTER LENGTH TEST 
: TRANSMIT 1 CHARACTER ON LINE 2 
» CHARACTER LENGTH IS 7 BITS 
{EXPECTED RECEIVED CHARACTER IS 177 
.•LINE SPEED IS 9600 BAUD 



MASTER CLEAR INTERFACE 

CHARACTER TO BE TRANSMITTED ■ 77( OCTAL) 

SELECT LINE 2 

SET UP TO TRANSMIT 1 BYTE 

SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

SET LINE SPEED FOR 9600 BAUD 

SET CHARACTER LENGTH FOR 6 BITS 

START TRANSMITTER 

UAIT TO RECEIVE CHARACTER 

sCR4)-RECEIVED CHARACTER 
tIN LOU BYTE. AND LINE NUMBER AND 
> CHARACTER STATUS IN HIGH BYTE 
iCR5)-EXPECTED CHARACTER IN LOU BYTE 
iAND LINE NUMBER AND CHARACTER 
{STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH, DATA 
(OR LINE NUMBER ERROR 



TS \XN.400,2> 
T13: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 



♦340. PS 
«400,IC0UNT 
«2 I. ESCAPE 

•.FREEZl 



{DISABLE ALL INTERRUPTS 
{SET UP FOR 400 ITERATIONS 
{SET UP TO ESCAPE TO NEXT TEST 

J SET UP TO LOOP UITH DATA 



{ 3 
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SEQ 53 



003202 
003210 
003216 
003224 
003232 
003240 
003246 
003254 
003262 
003266 
003270 



012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



004000 
000177 
000002 
177777 
015756 
033500 
000002 
000004 
012370 

012364 



012446 
012540 
012432 
012434 
012424 
012414 
012406 
012406 



003274 012705 101177 



003300 
003302 
003304 
003304 

003306 



003310 



003310 
003310 
003316 
003324 



020504 
001401 

104000 

104400 

000003 
000010 
000377 
101377 



012767 
012767 
012767 



000340 174460 
000400 012400 
003436 012366 



111 



nov 
nov 
nov 
nov 
nov 
nov 

BIS 

nov 

TSTB 
BPL 

nov 



nov 



cnp 

BEQ 
HLT 
EMT 

SCOPE 



«eiTll.«)HSCR 

♦177.T0ATA 

•2.80HSCR 

«-i.«>HBC 

*T0ATA,80HBA 

#33500. 8DHLPR 

42.8DHLPR 

«4.M)HBAR 

0>HSCR 

II 

aOHNRC,R4 



#101177. R5 



RS.R4 
21 



21: 

LENGTX-LENGTXa 
LENGTC-LENGTC*1 
XC0OE-XCODE*2*l 
0ATAR-LINEX*400« 100000 ^XCOOE 

CHARTl \LINEX . \BITX . \LENGTX . \LEN6TC . \XC0DE . \OATAR 

{CHARACTER LENGTH TEST 
;TRANSniT 1 CHARACTER ON LINE 2 
(CHARACTER LENGTH IS 10 BITS 
(EXPECTED RECEIVED CHARACTER IS 377 
(LINE SPEED IS 9600 BAUD 



: MASTER CLEAR INTERFACE 

: CHARACTER TO BE TRANSMITTED ■ 177( OCTAL) 

{SELECT LINE 2 

sSET UP TO TRANSMIT 1 BYTE 

:SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

:SET LINE SPEED FOR %00 BAUD 

{SET CHARACTER LENGTH FOR 7 BITS 

(START TRANSMITTER 

(WAIT TO RECEIVE CHARACTER 

j(R4)-RECEIVED CHARACTER 
:IN LOU BYTE. AND LINE NUMBER AND 
(CHARACTER STATUS IN HIGH BYTE 
(CR5)-EXPECTED CHARACTER IN LOU B/TE 
(AND LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SANE 
(CHARACTER LENGTH. DATA 
(OR LINE NUMBER ERROR 



IS \XN.400.2I 
T14: nov 
NOV 

nov 

.IF NB <> 

nov 

.ENDC 



#340. PS 
«400.IC0UNT 
#2 1, ESCAPE 

«.FREEZ1 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 400 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP HITH DATA 



; 3 





000015 






XN-XN*1 






003332 


012777 


004000 


012316 




nov 


«BITil,80HSCR 


003340 


012767 


000377 


012410 




nov 


#377.TDATA 


003346 


012777 


000002 


012302 




nov 


#2.80HSCR 


003354 


012777 


177777 


012304 




nov 


#'l.aOHBC 


003362 


012777 


015756 


012274 




nov 


•TDATA.0OHBA 


003370 


012777 


033500 


012264 




nov 


#33500. SOHLPR 


003376 


052777 


000003 


012256 




BIS 


«3,80HLPR 


003404 


012777 


000004 


012256 




nov 


«4.80HBAR 


003412 


105777 


012240 




11: 


TSTB 


aOHSCR 


003416 


100375 








BPL 


11 


003420 


017704 


012234 






nov 


flOHNRC.R4 


003424 


012705 


101377 






nov 


♦101377, R5 



(MASTER CLEAR INTERFACE 

(CHARACTER TO BE TRANSMITTED - 377(0CTAL) 

(SELECT LINE 2 

(SET UP TO TRANSMIT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSniTTED 

(SET LINE SPEED FOR 9600 BAUD 

(SET CHARACTER LENGTH FOR 10 BITS 

(START TRANSMITTER 

(WAIT TO RECEIVE CHARACTER 

( ( R4 ) -RECEIVED CHARACTER 
(IN LOU BYTE. AND LINE NUNBER AND 
(CHARACTER STATUS IN HIGH BYTE 
{(R5)-EXPECTED CHARACTER IN LOU BYTE 
(AND LINE NUnBER AND CHARACTER 
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SEQ 34 



003430 020504 

003432 001401 
003434 

003434 104000 

003436 104400 
000004 
000011 
000777 
000003 
000010 
000000 
000005 
000037 
000004 



CMP 
BEQ 

HLT 

on 



R5.R4 
2« 



: STATUS IN HIGH BYTE 

iARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 



003440 



003440 



101437 



I OR LINE NUMBER ERROR 

21: SCOPE 

LEN6TX-LENGTX*1 

LEN6TC-LENGTC«1 

XCa0E-XC00E*2*l 

LINEX-LINEX^l 

BITX-BITX*8ITX 

LEN6TX-0 

LEN6TC-5 

XCOOE-37 

.REPT 4 

•NLIST 

OATAR-LINEX*400* 100000 «XC00E 

.LIST 

CHARTl \LINEX . \BITX . \LENGTX . \LENGTC . \XCODE . \DAT AR 
.NLIST 

LENGTX-LENGTX*! 

LENGTC-LENGTC^l 

XC0DE-XC00E*2*1 

.LIST 

.ENOR 

OATAR-LINEXA400* lOOOOOtXCOOE 

CHARTl \LINEX , \BITX . \LENGTX . \LENGTC , \XCODE . \Dl^f 

(CHARACTER LENGTH TEST 
(TRANSMIT 1 CHARACTER ON LINE 3 
(CHARACTER LENGTH IS 5 BITS 
(EXPECTED RECEIVED CHARACTER IS 37 
(LINE SPEED IS 9600 BAUD 



TS \XN.400.2I 



003440 


012767 


000340 


174350 


T15: 


MOV 


♦340. PS 


003446 


012767 


000400 


012250 




MOV 


MOO.ICOUNT 


003454 


012767 


003566 


012236 




MOV 


«2*. ESCAPE 










.IF NB 


<> 














MOV 


♦.FREEZl 










.ENOC 








000016 






XN-XN«1 






003462 


012777 


004000 


012166 




MOV 


«BIT11,80HSCR 


003470 


012767 


000037 


012260 




MOV 


♦37.T0ATA 


003476 


012777 


000003 


012152 




MOV 


♦3.80HSCR 


003504 


012777 


177777 


012154 




MOV 


#-1.80HBC 


003512 


012777 


015756 


012144 




MOV 


♦TDATA.0OHBA 


003520 


012777 


033500 


012134 




MOV 


♦33500. 8DHLPR 


003526 


052777 


000000 


012126 




BIS 


♦O.SDHLPR 


003534 


012777 


000010 


012126 




MOV 


♦lO.SOHBAR 


003542 


105777 


012110 




1»: 


TSTB 


SDHSCR 


003546 


100375 








BPL 


1« 


003550 


017704 


012104 






MOV 


SDHNRC.R4 


003554 


012705 


101437 






MOV 


♦101437. R5 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 400 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



(MASTER CLEAR INTERFACE 

(CHARACTER TO BE TRANSMITTED • 37( OCTAL) 

(SELECT ITNE 3 

(SET UP U TRANSMIT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

(SET LINE SPEED FOR 9600 BAUD 

I SET CHARACTER LENGTH FOR 5 BITS 

(START TRANSMITTER 

(UAIT TO RECEIVE CHARACTER 

((R4}-RECEIVED CHARACTER 
(IN LOU BYTE. AND LINE NUMBER AND 
(CHARACTER STATUS IN HIGH BYTE 
(CR5) -EXPECTED CHARACTER IN LOU BYTE 
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SEQ 35 



003560 020504 

003562 001401 
003564 

003564 104000 

003566 104400 
000001 
000006 
000077 
101477 

003570 



CHP 
BEQ 
HLT 
EMT 



R5,R4 
2* 



iANO LINE NUMBER AND CHARACTER 
J STATUS IN HIGH BYTE 

:ARE EXPECTED AND RECEIVED DATA THE SAKE 
:CHARACTER LENGTH. DATA 



;0R LINE NUMBER ERROR 

21 : SCOPE 

LENGTX-LEN6TX«1 

LENGTC-LEN6TC*1 

XC0DE-XC0DE*2«1 

DATAR-LINEX*400*100000«XC0DE 

CHARTl \LINEX , \BITX . \LEN6TX . \LENGTC ,\XC00E , \DATAR 

(CHARACTER LENGTH TEST 

iTRANSHIT 1 CHARACTER ON LINE 3 

{CHARACTER LENGTH IS 6 BITS 

J EXPECTED RECEIVED CHARACTER IS 77 

:LINE SPEED IS 9600 BAUD 



003570 








TS \XN.400,2I 




003570 


012767 


000340 


174200 


T16: 


nov 


•340. PS 


003576 


012767 


000400 


012120 




HOV 


MOO.ICOUNT 






OUo rlD 


A1 91 f\£i 




nov 


we Csbnrt, 










.IF NB 


<> 














nov 


♦.FREEZl 










.ENDC 








000017 






XN-XN*1 




003612 


012777 


004000 


012036 




nov 


«eiT11.80HSCR 


003620 


012767 


000077 


012130 




nov 


#77.T0ATA 


003626 


012777 


000003 


012022 




nov 


«3.0OHSCR 


003634 


012777 


177777 


012024 




nov 


•-1.80HBC 


003642 


012777 


015756 


012014 




nov 


«TDATA.80HBA 


003650 


012777 


033500 


012004 




nov 


«33500.80HLPR 


003656 


052777 


000001 


011776 




BIS 


•1.8DHLPR 


003664 


012777 


000010 


011776 




nov 


«10,80HBAR 


003672 


105777 


011760 




11: 


TSTB 


80HSCR 


003676 


100375 








BPL 


11 


003700 


017704 


011754 






nov 


M)HNRC.R4 


003704 


012705 


101477 






nov 


•101477. R5 


003710 


020504 








cnp 


R5.R4 


003712 


001401 








BEQ 


21 


003714 










HLT 




003714 


104000 








EHT 




003716 


104400 






2i: 


SCOPE 






000002 






LENGTX 


-LENGTX* 1 






000007 






LENGTC 


-LENGTC +1 






000177 






XCODE- 


XC00E*2«1 






101577 






DATAR- 


LINEX*400 


»100000*XC00E 



(DISABLE ALL INTERRUPTS 

(SET UP FOR 400 ITERATIONS 

J SET UP TO ESCAPE TO NEXT TEST 

tSET UP TO LOOP UITH DATA 



{MASTER aEAR INTERFACE 
(CHARACTER TO BE TRANSniTTED - 77( OCTAL) 
(SELECT LINE 3 
SET UP TO TRANSMIT 1 BYTE 

SET UP ADDRESS OF CHARACTER TO BE TRANSNITTEO 

SET LINE SPEED FOR 9600 BAUD 

SET CHARACTER LENGTH FOR 6 BITS 

START TRANSniTTER 

UAIT TO RECEIVE CHARACTER 

i(R4)-RECEIVE0 CHARACTER 
;IN LOU BYTE. AND LINE NUMBER AND 
(CHARACTER STATUS IN HIGH BYTE 
((R5) -EXPECTED CHARACTER IN LOU BYTE 
(AND LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAnE 



(CHARACTER LENGTH. DATA 
(OR LINE NUnBER ERROR 



003720 



CHARTl \LINEX . \BITX . \LENGTX . \LEMGTC . \XCOOE, \DATAR 



(CHARACTER LENGTH TEST 
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bEQ 36 



003720 

003720 012767 

003726 012767 

003734 012767 



003742 
003750 
003756 
003764 
003772 
004000 
004006 
004014 
004022 
004026 
0C4030 



000020 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



000340 
000400 
004046 



004000 
000177 
000003 
177777 
015756 
033500 
000002 
000010 
011630 

011624 



004034 012705 101577 



004040 
004042 
004044 
004044 

004046 



004050 



020504 
001401 

104000 

104400 
000003 
000010 
000377 
101777 



004050 
004050 
004056 
004064 



004072 
004100 



012767 
012767 
012767 



000021 
012777 
012767 



000340 
000400 
004176 



004000 
000377 



174050 
011770 
011756 



011706 
012000 
011672 
011674 
011664 
011654 
011646 
011646 



173720 
011640 
011626 



011556 
011650 



TRANSMIT 1 CHARACTER ON LINE 3 
CHARACTER LENGTH IS 7 BITS 
EXPECTED RECEIVED CHARACTER IS 177 
LINE SPEED IS 9600 BAUD 



TS \XN,400,2# 
T17: MOV 
MOV 
MOV 
•IF NB <> 
MOV 

.ENOC 
XN-XN^l 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
MOV 
1$ : TSTB 
8PL 
MOV 



MOV 



CMP 
BEQ 
HLT 
EMT 



«340.PS 
«4OO,IC0UNT 
«2«, ESCAPE 

«.FREEZ1 



«6IT11,8DHSCR 

♦177.TDATA 

«3.8DHSCR 

«-1.6DHBC 

«TDATA,8DHBA 

♦33500.80HLPR 

♦2.80HLPR 

«10.80HBAR 

BOHSCR 

1) 

80HNRC.R4 



♦10157 7. R5 



R5.R4 
2> 



21 : SCOPE 
LENGTX-LENGTX4^1 
LENGTC'LENGTC*! 
XC00E-XC00E*2«1 
DATAR-LINEX*400« 100000 «XC00E 

CHARTl \L1NEX . VBITX . \LEN6TX . \LEN6TC . VXCODE . \DAT AR 

{CHARACTER LENGTH TEST 
.•TRANSMIT 1 CHARACTER ON LINE 3 
s CHARACTER LENGTH IS 10 BITS 
{EXPECTED RECEIVED CHARACTER 15 377 
tLINE SPEED IS 9600 BAUD 



DISABLE ALL INTERRUPTS 
SET UP FOR 400 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP WITH DATA 



MASTER CLEAR INTERFACE 

CHARACTER TO BE TRANSMITTED - 177(0CTAL) 
SELECT LINE 3 
:SET UP TO TRANSMIT 1 BYTE 

sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

:SET LINE SPEED FOR 9600 BAUD 

I SET CHARACTER LENGTH FOR 7 BITS 

i START TRANSMITTER 

iUAIT TO RECEIVE CHARACTER 

i(R4)-RECEIVED CHARACTER 
;IN LOU BYTE. AND LINE NUMBER AND 
{CHARACTER STATUS IN HIGH BYTE 
;(R5)-EXPECTED CHARACTER IN LOU BYTE 
iANO LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

;ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
{OR LINE NUMBER ERROR 



TS \XN.400,2* 
T20: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN«1 

MOV 
MOV 



•540. PS 
•400.IC0UNT 
«2 I. ESCAPE 

•.FREEZl 



4BIT11.S0HSCR 
#377.T0ATA 



{DISABLE ALL INTERRUPTS 
(SET UP FOR 400 ITERATIONS 
{SET UP TO ESCAPE TO NEXT TEST 

{SET UP TO LOOP UITH DATA 



t 3 



(MASTER aEAR INTERFACE 

{CHARACTER TO BE TRANSMITTED ■ 377(0CTAL) 
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SEQ S7 



004106 
004114 
004122 
004130 
004136 
004144 
004152 
004156 

oo'-ieo 



012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



004170 
004172 
004174 
004174 

004176 



020504 
001401 

104000 

104400 
000004 
000011 
000777 
000004 
000020 
000000 
OOOOOS 
000037 
000004 



004200 



102037 



000003 
177777 
015756 
033500 
000003 
000010 
011500 

011474 



011542 
011544 
011534 
011524 
011516 
011516 



004164 012705 101777 



004200 

004200 012767 000340 

004206 012767 000400 

004214 012767 004326 



000022 
004222 012777 004000 



173570 
011510 
011476 



011426 



II: 



tlOV 

nov 
nov 
nov 

BIS 

nov 

TSTB 
BPL 

nov 



nov 



cnp 

BEQ 
HLT 
EMT 

SCOPE 



♦3.S0HSCR 

«-l.ai)HBC 

*TOATA.0OHBA 

*33S00.80HLPR 

♦3.80HLPR 

*10.S0HBAR 

SDHSCR 

II 

80HNRC.R4 



♦101777. R5 



RS.R4 
21 



21: 

LENGTX-LENGTX*1 

LEN6TC-LEN6TC*! 

XC00E-XC0DE*2*1 

LINEX-LINEX*1 

BZTX-BITX*BITX 

LENGTX-0 

LENGTC-5 

XCODE-37 

.REPT 4 

.NLIST 

DATAR-LINEX*400«100000*XCOOE 

■ LIST 

CHARTl \LINEX . \BITX . \LEN6TX . \LEN6TC . NXCODE . \DAT AR 
.NLIST 

LENGTX-LENGTX^l 

LENGTC-LENGTC*1 

XCWE-XCUE*2*1 

.LIST 

.ENDR 

OATAR-LINEX*400*100000*XCOOE 

CHARTl \LINEX . \BITX . \LEN6TX . \LEN6TC . \XCWE. \0 AT AR 

{CHARACTER LENGTH TEST 
iTRANSHIT 1 CHARACTER ON LINE 4 
{CHARACTER LENGTH IS 5 BITS 
lEXPECTEO RECEIVED CHARACTER IS 37 
(LINE SPEED IS 9600 BAUD 



: SELECT LINE 3 

J SET UP TO TRANSniT 1 BYTE 

jSET UP ADDRESS OF CHARACTER TO BE TRANSHITTEO 

{SET LINE SPEED FOR 9600 BAUD 

{SET CHARACTER LENGTH FOR 10 BITS 

{START TRANSMITTER 

iUAIT TO RECEIVE CHARACTER 

{(R4)-RECEIVED CHARACTER 
{IN LOU BYTE. AND LINE NUMBER AND 
{CHARACTER STATUS IN HIGH BYTE 
i(R5)-EXPECTED CHARACTER IN LOU BYTE 
{AND LINE NUMBER tNO CHARACTER 
{STATUS IN HIGH BYTE 

{ARE EXPECTED ANO RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
:0R LINE NUMBER ERROR 



TS \XN,400.2I 
T21: nov 

nov 
nov 

.IF NB <> 

nov 

.ENDC 
XN«XN*1 

nov 



♦340. PS 
4400.IC0UNT 
*2 I. ESCAPE 

«.FREEZ1 
«eiTll.SOHSCR 



{DISABLE ALL INTERRUPTS 
(SET UP FOR 400 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



(MASTER CLEAR INTERFACE 



i 3 
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S£Q M 



004230 
004236 
004244 
0042S2 
004260 
004266 
004274 
004302 
004306 
004310 



012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



000037 
000004 
177777 
015756 
033500 
000000 
000020 
011350 

011344 



011520 
011412 
011414 
011404 
011374 
011366 
011366 



004314 012705 102037 



004320 
004322 
004324 
004324 

004326 



004330 



020504 
001401 

104000 

104400 
000001 
000006 
000077 
102077 



004330 
004330 
004336 
004344 



012767 
012767 
012767 



000340 173440 
000400 011360 
004456 011346 



II: 



nov 
nov 
hov 
nov 
nov 

BIS 

nov 

TSTB 
BPL 

nov 



nov 



cnp 

BEQ 

HLT 
EMT 

SCOPE 



♦37.TDATA 

M.80KSCR 

t-l.eOHBC 

•TDATA.8DHBA 

#33500. 0OHLPR 

•O.eOHLPR 

•20,flOHBAR 

SOHSCR 

II 

«>HNRC.R4 



#102037. R5 



R5.R4 

21 



21: 

LEN6TX-LENGTX*1 
LEN6TC-LEN6TC*! 
XC0DE-XC00E*2*1 
0ATAR-LINEX*400« 100000 *XCODE 

CHARTl \LINEX . \BITX , \LEN6TX , \LEN6TC . \XCOOE . \OAT AR 

I CHARACTER LENGTH TEST 
I TRANSMIT 1 CHARACTER ON LINE 4 
{CHARACTER LENGTH IS 6 BITS 
•EXPECTED RECEIVED CHARACTER IS 77 
I LINE SPEED IS 9600 BAUD 



{CHARACTER TO BE TRANSMITTED - 37( OCTAL) 

i SELECT LINE 4 

J SET UP TO TRANSMIT 1 BYTE 

I SET UP ADDRESS OF CHARACTER TO BE TRANSHITTEO 

iSET LINE SPEED FOR 9600 BAUD 

I SET CHARACTER LENGTH FOR 5 BITS 

(START TRANSMITTER 

iUAIT TC RECEIVE CHARACTER 

i(R4)-RECEIVE0 CHARACTER 
ilN LOU BYTE. AND LINE NUMBER AND 
(CHARACTER STATUS IN HIGH BYTE 
iCR5)-EXPECTED CHARACTER IN LOU BYTE 
(AND LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
(OR LINE NUMBER ERROR 



TS \XN.400.2I 
T22: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 



•340. PS 
•400,IC0UNT 
«2 I. ESCAPE 

#.FREEZ1 





000023 






XN>XN«1 






004352 


012777 


004000 


011276 




MOV 


«6IT 11. SOHSCR 


004360 


012767 


000077 


011370 




MOV 


#77.TDATA 


004366 


012777 


000C04 


011262 




MOV 


•4.8DHSCR 


004374 


012777 


177777 


011264 




MOV 


•-l.VNBC 


004402 


012777 


015756 


011254 




MOV 


•TDATA.0OHBA 


004410 


012777 


033500 


011244 




MOV 


♦53500. aOHLPR 


004416 


052777 


000001 


011236 




BIS 


«1.80HLPR 


004424 


012777 


000020 


011236 




MOV 


«20.«)HBAR 


004432 


105777 


011220 




11: 


TSTB 


flOHSCR 


004436 


100375 








BPL 


11 


004440 


017704 


011214 






MOV 


«)HNRC.R4 


004444 


012705 


102077 






MOV 


«102077.R5 



(DISABLE ALL INTERRUPTS 

(SET UP FOR 400 ITERATIONS 

I SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP UITH DATA 



(MASTER CLEAR INTERFACE 

(CHARACTER TO BE TRANSMITTED • 77( OCTAL) 

(SELECT LINE 4 

(SET UP TO TRANSMIT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

(SET LINE SPEED FOR 9600 BAUD 

(SET CHARACTER LENGTH FOR 6 BITS 

(START TRANSMITTER 

(WAIT TO RECEIVE CHARACTER 

((R4)-RECEIVED CHARACTER 
(IN LOU BYTE. AND LINE NUMBER AND 
(CHARACTER STATUS IN HIGH BYTE 
((R5)-EXPECTED CHARACTER IN LOU BYTE 
(AND LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 
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SCO 39 



004450 
004452 
004454 
004454 

004456 



004460 



020504 
001401 

104000 

104400 

000002 
000007 
000177 
102177 



004460 

004460 012767 

004466 012767 

004474 012767 



004502 
004510 
004S16 
004524 
004532 
004S40 
004546 
004554 
004562 
004566 
004570 



000024 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



CHP 
BEQ 
HLT 
EMT 



R5.R4 
21 



(ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 



004600 
004602 
004604 
004604 

004606 



004610 



020504 
001401 

104000 

104400 

000003 
000010 
000377 
102377 



000340 
000400 
004606 



004000 
000177 
000004 
177777 
015756 
033500 
000002 
000020 
011070 

011064 



173310 
011230 
011216 



011146 
011240 
011132 
011134 
011124 
011114 
011106 
011106 



004574 012705 102177 



I OR LINE NUnBER ERROR 

2>: SCOPE 

LENGTX-LENGTX*1 

LENGTC-LENGTC*1 

XC0DE-XC0FE*2*1 

DATAR-LINbX*400«100000*XC0DE 

CHARTl \LINEX . \BITX . \LENGTX . \LENGTC . \XC WE . NOAT AR 

(CHARACTER LENGTH TEST 
(TRANSMIT 1 CHARACTER ON LINE 4 
(CHARACTER LENGTH IS 7 BITS 
(EXPECTED RECEIVED CHARACTER IS 177 
(LINE SPEED IS 9600 BAUD 



TS \XN.400.2I 
T23: NOV 
NOV 
NOV 
.IF NB <> 
NOV 

.ENOC 
XN-XN«1 

NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
BIS 
NOV 
TSTB 
BPL 
NOV 



NOV 



1»: 



•540, PS 
«400.IC0VMT 
•2 I. ESCAPE 

•.FREEZl 



«BIT11,80HSCR 

•177,T0ATA 

«4.80HSCR 

••l.ttHBC 

•T0ATA.80HBA 

633500. aOHLPR 

«e.BOHLPR 

«eO.«>HBAR 

«HSCR 

II 



•102177.RS 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 400 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



I 3 



21: 



CNP 
BEQ 
M.T 
EHT 

SCOPE 



RS,R4 
21 



(NASTER CLEAR INTERFACE 

(CHARACTER TO BE TRANSHITTEO " 177(0CTAL) 

(SELECT LINE 4 

(SET UP TO TRANSNIT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

(SET LINE SPEED FOR 9600 BAUD 

(SET CHARACTER LENGTH FOR 7 BITS 

(START TRANSMITTER 

I WAIT TO RECEIVE CHARACTER 

((R4)«RECEIVE0 CHARACTER 
(IN LOU BYTE. AND LINE NUNBER AND 
(CHARACTER STATUS IN HIGH BYTE 
((RS)«EXPECTEO CHARACTER IN LOU BYTE 
(AND LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SANE 
(CHARACTER LENGTH. DATA 
I OR LINE NUMBER ERROR 



LENCTX-LEN6TX*! 
LENBTC-LEN6TCU 
XC0OE-XC0l)E*2*l 
DATAR-LINEX*400*100000*XCOOE 

CHARTl \LINEX . \BITX . \LEN6TX . \LEN6TC . \XCQOE . \0ATAR 

(CHARACTER LENGTH TEST 
(TRANSMIT 1 CHARACTER ON LINE 4 
(CHARACTER LENGTH IS 10 BITS 



i 
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SCO 40 



lEXPCCTEO RECEIVED CHARACTER IS S77 
ILINE SPEEC IS 9600 BAUD 



004610 

004610 012767 000S40 

004616 012767 000400 

004624 012767 0047S6 



0046 S2 
004640 
004646 
004654 
004662 
004670 
004676 
004704 
004712 
004716 
004720 



000025 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100S75 
017704 



004730 
0047S2 
004734 
004734 

004736 



020504 
001401 

104000 

104400 
000004 
000011 
000777 
000005 
000040 
000000 
000005 
000037 
000004 



004740 



102437 



004000 
000377 
000004 
177777 
015756 
033500 
000003 
000020 
010740 

010734 



173160 
011100 
011066 



011016 
011110 
011002 
011004 
010774 
010764 
010756 
010756 



004724 012705 102377 



TS \XN. 400.2* 
T24: flOV 

nov 
nov 

.IF NB «> 
NOV 

.EMDC 
XN*XN*1 

NOV 

nov 

NOV 

nov 
nov 
nov 
eis 
nov 

TSTB 
BPL 

nov 



nov 



Hi 



cnp 

BEQ 

HLT 
EHT 

SCOPE 



•340. PS 

MOO.ICOUNT 
•2 I. ESCAPE 

♦.PREEZl 



•BITll.aWSCR 

♦377.T0ATA 

44.0OHSCR 

4-1.80HBC 

•TDATA.SOHBA 

•33500, ODHLPR 

•3.80HLPR 

•20.80HBAR 

80HSCR 

11 

80HNRC.R4 



•102377, R5 



R5.R4 
2» 



2>: 

LENCTX-LENGTX4 1 

LENCTC-LENGTC*1 

XC00E-XC00E*2*1 

LINEX-LINEX*! 

8ITX-BITX»BITX 

LEf'jTX-0 

LENCTC-S 

XCODE-37 

•REPT 4 

.NLIST 

0ATAR«LINEX*400» 100000»XC00E 
.LIST 

CHARTl \LINEX . \BITX . \LENGTX . \LENGTC . \XCGDE . \OATAR 
.hLIST 

LENGTX-LENGTX*! 

LENGTC-LENGTCl 

XC0OE-XC0OE*2*l 

.LIST 

.ENOR 

QATAR - LINEX*400 * 100000 * XCODE 

CHARTl \L1NEX . \BITX . \LENGTX . \LENGTC . \XCGOE , \OATAR 

: CHARACTER LENGTH TEST 

t TRANSMIT I CHARACTER ON LINE 5 



; DISABLE ALL INTERRUPTS 
I SET UP FOR 400 ITERATIONS 
:SET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP WITH DATA 



jMAS.E*? CLEAR INTERFACE 

;CHARmCTER TO BE TRANSMTTEO ■ 377(0CTAL) 
] SELECT LINE 4 
SET UP TO TRANSMIT I BYTE 

SET UP ADDRESS OF CHARACTER TO BE TRANSHITTEO 

SET LINE SPEED FOR 9600 BAUD 

SET CHARACTER LENGTH FOR 10 BITS 

START TRANSMITTER 

UAIT TO RECEIVE CHARACTER 

i(R4)-RECEIVE0 CHARACTER 
ilN LOW BYTE, AND LINE NUMBER AND 
(CHARACTER STATUS IN HIGH BYTE 
i(R5)-EXPECTE0 CHARACTER IN LOW BYTE 
(AND LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

sARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
(OR LINE NUMBER ERROR 



C20NC-C0 
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SEQ 41 



004740 

004740 012767 

004746 012767 

004 7S4 012767 



00034'* 173030 
000400 010750 
005066 010736 



004762 
004770 
004776 
005004 
005012 
005020 
005026 
005034 
005042 
005046 
0C5050 



000026 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



005060 
005062 
005064 
005064 

005066 



005070 



020504 
001401 

104000 

104400 
000001 
000006 
000077 
102477 



005070 
005070 
005076 
005104 



005112 
005120 
005126 



012767 
012767 
012767 



000027 
012777 
012767 
012777 



004000 
000037 
OOOOOS 
177777 
015756 
033500 
000000 
000040 
010610 

010604 



005054 012705 102437 



010666 
010760 
010652 
010654 
010644 
010634 
010626 
010626 



000340 172700 
000400 010620 
005216 010606 



004000 010536 
000077 010630 
000005 010522 



{CHARACTER LENGTH IS 5 BITS 
iEXPECTEO RECEIVED CHARACTER IS 37 
I LINE SPEED IS 9600 BAUD 



TS \XN,400.2$ 
T25: NOV 

nov 
nov 

.IF NB <> 
NOV 

.ENOC 
XN-XN*1 

nov 

MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
MOV 

II: TSTB 
BPL 
MOV 



MOV 



CMP 
BEQ 
HLT 
EMT 



•340. PS 

4400.ICOUNT 

«2«.ESCAPE 

«.rREEZl 



46IT11.8JHSCR 

•37.T0ATA 

«5.80HSCR 

♦-1.80HBC 

«T0ATA,80HeA 

433500. 80HLPR 

«0,BOHLPR 

M0.80HBAR 

SOHSCR 

II 

80HNRC.R4 



•102437. RS 



R5.R4 
21 



:DISABLE ALL INTERRUPTS 
:SET UP FOR 400 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP WITH DATA 



t 3 



21 : SCOPE 

LENGTX-LEN6TX*1 

LENGTC-LENGTCl 

XC00E-XC00E*2*1 

OATAR-LINEX*400*100000*XCOOE 

CHARTl \LINEX . \BITX . \LENGTX . \LENGTC . \XCO0E , \OAT AR 

I CHARACTER LENGTH TEST 
(TRANSMIT 1 CHARACTER ON LINE 5 
{CHARACTER LENGTH IS 6 BITS 
{EXPECTED RECEIVED CHARACTER IS 77 
tLINE SPEED IS 9600 BAUD 



(MASTER CLEAR INTERFACE 

jCHARACTER TO BE TRANSMITTED • 37(0CTAL) 

(SELECT LINE 5 

(SET UP TO TRANSMIT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

(SET LINE SPEED FOR 9600 BAUD 

(SET CHARACTER LENGTH FOR 5 BITS 

(START TRANSMITTER 

iUAIT TO RECEIVE CHARACTER 

(CR4)-RECEIVED CHARACTER 
ilN LOU BYTE. AND LINE NUMBER AND 
(CHARACTER STATUS IN HIGH BYTE 
!(R5)-EXPECTE0 CHARACTER IN LOU BYTE 
(AND LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
iOR LINE NUMBER ERROR 



TS \XN.400.2t 



T26: 



.IF NB 

.ENOC 
XN>XH*1 



nov 

NOV 
MOV 
<> 

nov 



MOV 
MOV 
MOV 



•340, PS 
•400.ICOUNT 
•2 I. ESCAPE 

•.FREEZl 



•BIT11.8DHSCR 

•77,TDATA 

•S.SDHSCR 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 400 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP UITH DATA 



> 3 



(MASTER CLEAR INTERFACE 

(CHARACTER TO BE TRANSMITTED - 77(0CTAL) 

(SELECT LINE 5 



CZOHE-CO 
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SEQ 42 



vv^X 


vie / / / 


1 77777 


A« AC OA 


nuv 


XfW/nDC 




ftl 5777 

VXC Iff 




wX v^x^ 


nuv 




005150 


012777 


033500 


010504 


HOV 


♦33S00.S0HLPR 




fi^3777 


wwvx 


vXV* *D 




vx » VUnLrn 


005164 


012777 


000040 


010476 


MOV 


MO.flOHBAR 


005172 


105777 


010460 


1»: 


TSTB 


SOHSCR 




IWO r 3 






DPI 




005200 


017704 


010454 




nov 


80HNRC.R4 






Xwc* ' » 




nuw 


At A7A77 DiR 
vxVc^ 119 


005210 


020504 






CMP 


R5.R4 


005212 


001401 






BEQ 


2* 


005214 








HLT 




005214 


104000 






EMT 





005216 



0C5220 



104400 

000002 
000007 
000177 
102577 



2*: 



SCOPE 



:SET UP TO TRANSMIT 1 BYTE 

:SFT UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

:SET LINE SPEED FOR 9600 BAUD 

iSET CHARACTER LENGTH FOR 6 BITS 

iSTART TRANSMITTER 

:UAIT TO RECEIVE CHARACTER 

(R4)-RECEIVED CHARACTER 

IN LOU BYTE. AND LINE NUMBER AND 

CHARACTER STATUS IN HIGH BYTE 
.(R5)-EXPECTE0 CHARACTER IN LOU BYTE 
(AND LINE NUMBER AND CHARACTER 
i STATUS IN HIGH BYTE 

;ARE EXPECTED AND RECEIVED DATA THE SAME 
{CHARACTER LENGTH. DATA 
iOR LINE NUMBER ERROR 



LENGTX«LENGTX*1 
LENGTC-LENGTC*! 
XC0UE-XC00E*2*1 
DATAR-LINEX*400*100000*XCOOC 

CHARTl \LINEX . \BITX . \LEN6TX . \LENGTC . \XC00E . \DAT AR 

(CHARACTER LENGTH TEST 
{TRANSMIT 1 CHARACTER ON LINE 5 
(CHARACTER LENGTH IS 7 BITS 
(EXPECTED RECEIVED CHARACTER IS 177 
(LINE SPEED IS 9600 BAUD 



005220 



TS \XN.400.2» 



005220 


012767 


000340 


172550 


T27: 


nov 


#340. PS 


005226 


012767 


000400 


010470 




NOV 


•400.IC0VMT 


005234 


012767 


005346 


010456 




MOV 


*2t. ESCAPE 










.IF NB 


<> 














NOV 


•.FREEZl 










.ENDC 








000030 






XN*XN*1 






005242 


012777 


004000 


010406 




MOV 


«BIT 11. SOHSCR 


005250 


012767 


000177 


010500 




MOV 


♦177.TDATA 


005256 


012777 


000005 


010372 




MOV 


«S. SOHSCR 


005264 


012777 


177777 


010374 




MOV 


*-1.80HBC 


005272 


012777 


015756 


010364 




MOV 


«T0ATA.80H6A 


005300 


012777 


033500 


010354 




MOV 


#33500. 80HLPR 


005306 


052777 


000002 


010346 




BIS 


«2.SDHLPR 


005314 


012777 


000040 


010346 




MOV 


#40.80HBAR 


005322 


105777 


010330 




11: 


TSTB 


SOHSCR 


005326 


100375 








BPL 


11 


005330 


017704 


010324 






MOV 


S0HNRC.R4 


005334 


012705 


102577 






MOV 


•102577. R5 


005340 


020504 








CMP 


R5.R4 


005342 


001401 








BEQ 


21 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 400 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP UITH DATA 



(MASTER CLEAR INTERFACE 

(CHARACTER TO BE TRANSMITTED - 177( OCTAL) 

(SELECT LINE 5 

(SET UP TO TRANSMIT 1 BYTE 

SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
SET LINE SPEED FOR 9600 BAUD 
SET CHARACTER LENGTH FOR 7 BITS 
START TRANSMITTER 
(UAIT TO RECEIVE CHARACTER 

{(R4)-RECEIVED CHARACTER 
(IN LOU BYTE. AND LINE NUMBER AND 
(CHARACTER STATUS IN HIGH BYTE 
{CR5)- EXPECTED CHARACTER IN LOW BYTE 

AND LINE NUMBER AND CHARACTER 

STATUS IN HIGH BYTE 

ARE EXPECTED AND RECEIVED DATA THE SAME 



C20HE-C0 



nACRO V04.00 27.JUN-85 12:56:29 PAGE 19-19 



SEQ 43 



005344 

005344 104000 

005346 104400 
000003 
000010 
000377 
102777 

005350 



HLT 
EMT 



:CHARACTER LENGTH. DATA 



005350 








IS \XN,400.2I 




005350 


012767 


000340 


172420 


T30: nOV 


«340.PS 


005356 


012767 


000400 


010340 


nov 


MOO.ICQUNT 


005364 


012767 


005476 


010326 


nov 


•21. ESCAPE 










.IF NB <> 












nov 


•.FREEZl 










.ENOC 






000031 






XN*XN*i 




005372 


012777 


004000 


010256 


nov 


«BIT11.80HSCR 


005400 


012767 


000377 


010350 


nov 


♦377,T0ATA 


005406 


012777 


000005 


010242 


nov 


♦5.0OHSCR 


005414 


012777 


177777 


010244 


nov 


♦-l.aOHBC 


005422 


012777 


015756 


010234 


nov 


•TOATA.SDHBA 


005430 


012777 


033500 


010224 


nov 


•33500. 0OHLPR 


005436 


052777 


000003 


010216 


BIS 


•3.8DHLPR 


005444 


012777 


000040 


010216 


nov 


•40,a)HBAR 


005452 


105777 


010200 




1$: TSTB 


80HSCR 


005456 


100375 






BPL 


11 


005460 


017704 


010174 




nov 


80HNRC.R4 


005464 


012705 


102777 




nov 


♦102777. R5 


005470 


020504 






cnp 


R5.R4 


005472 


001401 






BEQ 


21 


005474 








HLT 




005474 


104000 






EHT 




005476 


104400 






21 : SCOPE 






000004 






LENGTX-LENGTX»1 






000011 






LENGTC-LENGTC»1 






000777 






XC0DE«XCG0E*2*1 






000006 






LINEX-LINEXtl 






000100 






BITX-BITX»BITX 






000000 






LENGTX-0 






000005 






LENGTC«5 






000037 






XCOOE-37 






000004 






.REPT 4 





:QR LINE NUMBER ERROR 

2*: SCOPE 

LENGTX-LEN6TX»1 

LENGTC-LENGTC»1 

XC00E-XC00E*2*1 

OATAR-LINEX*400«100000*XCODE 

CHARTl \LINEX . \BITX . \LEMGTX . \LENGTC . \XC00E, \DATAR 

{CHARACTER LENGTH TEST 
:TRANSHIT 1 CHARACTER ON LINE 5 
(CHARACTER LENGTH IS 10 BITS 
sEXPECTED RECEIVED CHARACTER IS 377 
:LINE SPEED IS 9600 BAUD 



{DISABLE ALL INTERRUPTS 
:SET UP FOR 400 ITERATIONS 
.SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP UITH DATA 



sHASTER CLEAR INTERFACE 

{CHARACTER TO BE TRANSMITTED • 377(0CTAl ) 

{SELECT LINE 5 

{SET UP TO TRANSMIT 1 BYTE 

iSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

(SET LINE SPEED FOR 9600 BAUD 

sSET CHARACTER LENGTH FOR 10 BITS 

{START TRANSMITTER 

{UAIT TO RECEIVE CHARACTER 

{CR4)-RECEIVE0 CHARACTER 
{IN LOU BYTE. AND LINE NUMBER AND 
{CHARACTER STATUS IN HIGH BYTE 
{(R5) -EXPECTED CHARACTER IN LOU BYTE 
{AND LINE NUMBER AND CHARACTER 
{STATUS IN HIGH BYTE 

{ARE EXPECTED AND RECEIVED DATA THE SAME 
{CHARACTER LENGTH. DATA 
;0R LINE NUMBER ERROR 



•NLIST 

DATAR-LINEX*400tlOOO0OtXC0DE 



CZOHE-CO 
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005500 



103037 



.LIST 

CHARTl \LINEX , \BITX . \LENGTX . \LENGTC . \XC0DE . \DATAR 
.NLIST 

LENGTX-LENGTX*! 

LENGTC-LENGTC*! 

XC0DE»XC00E*2*1 

• LIST 

.ENDR 

DATAR«LINEX*<00* 100000*XCODE 

CHARTl \LINEX , VBITX . \LENGTX . \LFN6TC . \XCODE , \DATAR 



CHARACTER LENGTH TEST 
TRANSMIT 1 CHARACTER ON LINE 6 
CHARACTER LENGTH IS 5 BITS 
EXPECTED RECEIVED CHARACTER IS 37 
(LINE SPEED IS 9600 BAUD 



OOSSOO 
005500 
005506 
005514 



005522 
005530 
005536 
005544 
005552 
005560 
005566 
0OS574 
005602 
005606 
005610 



012767 
012767 
012767 



000032 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



005620 
005622 
005624 
005624 

005626 



005630 



020504 
001401 

104000 

104400 
000001 
000006 
000077 
103077 



000340 
000400 
005626 



004000 
000037 
000006 
177777 
015756 
033500 
000000 
000100 
010050 

010044 



172270 
010210 
010176 



010126 
010220 
010112 
010114 
010104 
010074 
010066 
010066 



005614 012705 103037 



TS \XN.400.2« 
T31: MOV 
MOV 
MOV 
•IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
MOV 

II: TSTB 
BPL 
MOV 



MOV 



CMP 
BEQ 
HLT 
EMT 



♦340, PS 
«400.IC0UNT 
«2*. ESCAPE 

«.FREEZ1 



•6IT11.80HSCR 

#37.TDATA 

«6.SDHSCR 

«-1.80HBC 

«TDATA.80HBA 

«33500.S0HLPR 

«O.0DHLPR 

MOO.SDHBAR 

80HSCR 

II 

80HNRC.R4 



♦103037. R5 



R5.R4 
21 



{DISABLE ALL INTERRUPTS 
:SET UP FOR 400 ITERATIONS 
{SET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP UITH DATA 



i 3 



21 : SCOPE 

LENGTX-LENGTX*1 

LENGTC-LENGTC»1 

XC00E-XC00E*2*1 

DATAR-LINEX*400*1000004XC0DE 

CHARTl \LINEX . \BITX . \LENGTX , \LEN6TC . \XC00E . \0ATAR 

{CHARACTER LENGTH TEST 
{TRANSMIT 1 CHARACTER ON LINE 6 
{CHARACTER LENGTH IS 6 BITS 
{EXPECTED RECEIVED CHARACTER IS 77 



{MASTER CLEAR INTERFACE 

{CHARACTER TO BE TRANSMITTED - 37(0CTAL) 

{SELECT LINE 6 

{SET UP TO TRANSMIT 1 BYTE 

{SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

{SET LINE SPEED FOR 9600 BAUD 

{SET CHARACTER LENGTH FOR 5 BITS 

{START TRANSMITTER 

{WAIT TO RECEIVE CHARACTER 

{(R4)-RECEIVED CHARACTER 
{IN LOU BYTE, AND LINE NUMBER AND 
{CHARACTER STATUS IN HIGH BYTE 
{CR5)-EXPECTED CHARACTER IN LOU BYTE 
{AND LINE NUMBER AND CHARACTER 
{STATUS IN HIGH BYTE 

{ARE EXPECTED AND RECEIVED DATA THE SAME 
{CHARACTER LENGTH, DATA 
(OR LINE NUMBER ERROR 



CZOHE-CO 
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SEQ 45 



iLINE SPEED IS 9600 BAUD 



00S630 

005630 012767 

005636 012767 

005644 012767 



005652 
005660 
005666 
005674 
005702 
005710 
005716 
005724 
005732 
005736 
00S740 



000033 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



005750 
005752 
005754 
005754 

005756 



005760 



020504 
001401 

104000 

104400 

000002 
000007 
000177 
103177 



005760 
005760 
005766 
005774 



006002 
006010 
006016 
006024 
006032 



012767 
012767 
012767 



000034 
012777 
012767 
012777 
012777 
012777 



000^40 
000400 
005756 



004000 
000077 
000006 
177777 
015756 
033500 
000001 
000100 
007720 

007714 



005744 012705 103077 



000340 
000400 
006106 



004000 
000177 
000006 
177777 
015756 



172140 
010060 
010046 



007776 
010070 
007762 
007764 
007754 
007744 
007736 
007736 



172010 
007750 
007716 



007646 
007740 
007632 
007634 
007624 



TS \XN.400.2* 
T32: MOV 

nov 
nov 

.IF W <> 

nov 

.ENOC 
XN"XN«1 

nov 
nov 
nov 
nov 
nov 
nov 

BIS 

nov 

1«: TSTB 
BPL 

nov 



nov 



«340.PS 

MOO.ICOUNT 

•2*,E.9CAPE 

♦.FREEZl 



«eiT11.8DHSCR 

#77.TDATA 

«6.80HSCR 

«-1.80HBC 

*TDATA,0DHBA 

«33S00,SDHLPR 

*1.0DHLPR 

«100.SDHBAR 

80HSCR 

1* 

80HNRC.R4 



•103077, R5 



cnp 

BEQ 

HLT 

EnT 



R5,R4 
2» 



2« : SCOPE 
LENGTX-LENGTX*1 
LENGTC-LENGTC*1 
XC00E-XCOOE*2*l 
OATAM-LINEX*400*100000«XCOOE 

CH ARTl \LINEX , VBITX . \LENGTX , \LENGTC , \XC00E . \0AT AR 

{CHARACTER LENGTH TEST 
;TRANSniT 1 CHARACTER ON LINE 6 
t CHARACTER LENGTH IS 7 BITS 
lEXPECTEO RECEIVED CHARACTER IS 177 
sLINE SPEED IS 9600 BAUD 



: DISABLE ALL INTERRUPTS 
;SET UP FOR 400 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP UITH DATA 



HASTER CLEAR INTERFACE 

CHARACTER TO BE TRANSHITTEO • 7 7( OCTAL) 

SELECT LINE 6 

SET UP TO TRANSMIT 1 BYTE 

SET UP ADDRESS OF CHARACTER TO BE TRANSHITTEO 

SET LINE SPEED FOR 9600 BAUD 

SET CHARACTER LENGTH FOR 6 BITS 

START TRANSniTTER 

WAIT TO RECEIVE CHARACTER 

(R4}-RECEIVED CHARACTER 
IN LOU BYTE, AND LINE NUMBER AND 
CHARACTER STATUS IN HIGH BYTE 
(R5}-EXPECTED CHARACTER IN LOU BYTE 
AND LINE NUMBER AND CHARACTER 
s STATUS IN HIGH BYTE 

tARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH, DATA 
;0R LINE NUMBER ERROR 



TS \XN,400,2» 
T33: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN>XN«1 

MOV 
MOV 
MOV 
MOV 
MOV 



*340,PS 
•400, I COUNT 
•2$. ESCAPE 

♦.FREEZl 



•BIT11.80HSCR 

•177,TDATA 

•6.S0HSCR 

•-l.WHBC 

•TDATA,aOHBA 



DISABLE ALL INTERRUPTS 
SET UP FOR 400 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

J SET UP TO LOOP UITH DATA 



I 3 



(MASTER CLEAR INTERFACE 

! CHARACTER TO BE TRANSMITTED • 177(0CTAL) 

(SELECT LINE 6 

(SET UP TO TRANSMIT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
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SEg 46 



006040 012777 033500 007614 

006046 052777 000002 007606 

006054 012777 000100 007606 

006062 105777 007570 

006066 100375 

006070 017704 007564 



006074 012705 103177 



006100 020504 

006102 001401 
006104 

006104 104000 

006106 104400 
000003 
000010 
000377 
103377 

006110 



II: 



nov 

BIS 

nov 

TSTB 
BPL 

nov 



nov 



CMP 
BEQ 
HLT 
EMT 

SCOPE 



«33S00.80HLPR 

«2.8DHLPR 

4100.80HBAR 

80HSCR 

II 

80HNRC.R4 



*103177.R5 



R5,R4 
21 



21: 

LENGTX-LENGTX+l 
LENGTC-CENGTC*1 
>C00L-XC00E*2*1 
OATAR-LINEX*400^100000^XCODE 

CHARTl SLINEX , \DITX . \LENGTX . \LENGTC , \XC00E . \DAT AR 

s CHARACTER LENGTH TEST 
s TRANSMIT 1 CHARACTER ON LINE 6 
{CHARACTER LENGTH IS 10 BITS 
(EXPECTED RECEIVED CHARACTER IS 377 
:LINE SPEED IS 9600 BAUD 



:SET LINE SPEED FOR 9600 BAUD 
sSET CHARACTER LENGTH FOR 7 BITS 
: START TRANSMITTER 
:UAIT TO RECEIVE CHARACTER 

:(R4) -RECEIVED CHARACTER 
:IN LOU BYTE, AND LINE NUMBER AND 
.CHARACTER STATUS IN HIGH BYTE 
:(R5)-EXPECTE0 CHARACTER IN LOU BYTE 
;ANO LINE NUMBER AND CHARACTER 
•.STATUS IN HIGH BYTE 

:ARE EXPECTED AND RECEIVED DATA THE SAME 
{CHARACTER LENGTH. DATA 
sOR LINE NUMBER ER90R 



006110 








TS \XN, 400.21 




006110 


012767 


000340 


171660 


T34: 


MOV 


#340. PS 


006116 


012767 


000400 


007600 




nov 


4400.ICOUNT 


006124 


012767 


006236 


007566 




MOV 


#2I.ESCAPF 










.IF NB 


<> 














nov 


«.FREEZ1 










.ENDC 








000035 






XN-XN^l 






006132 


012777 


004000 


007516 




nov 


«BIT11.8DHSCR 


006140 


012767 


000377 


007610 




nov 


♦377.T0ATA 


006146 


012777 


000006 


007502 




nov 


•6.B0HSCR 


006154 


012777 


177777 


007504 




nov 


•-1.S0HBC 


006162 


012777 


015756 


007474 




nov 


♦T0ATA.80HBA 


006170 


012777 


033500 


007464 




nov 


♦33S0O.S0HLPR 


006176 


052777 


000003 


007456 




BIS 


*3.80HLPR 


006204 


012777 


000100 


007456 




nov 


•100.B0H6AR 


006212 


105777 


007440 




11: 


TSTB 


BOHSCR 


006216 


100375 








BPL 


11 


006220 


017704 


007434 






nov 


S0HNRC.R4 


006224 


012705 


103377 






nov 


•103377. R5 


006230 


020504 








cnp 


R5.R4 


006232 


001401 








BEQ 


21 


006234 










HLT 




006234 


104000 








EMT 





I DISABLE ALL INfERRUPTS 
;SET UP FOR 400 ITERATIONS 
.•SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP WITH DATA 



I MASTER CLEAR INTERFACE 

{CHARACTER TO BE TRANSMITTED - 377C0CTAL) 

{SELECT LINE 6 

(SET UP TO TRANSniT 1 BYTE 

{SET UP ADDRESS OF CHARACTER TO BE TRANSMIfTED 

{SET LINE SPEED FOR 9600 BAUD 

iSET CHARACTER LENGTH FOR 10 BITS 

{START TRANSMITTER 

{UAIT TO RECEIVE CHARACTER 

{(R4)-RECEIVE0 CHARACTER 
(IN LOU BYTE. AND LINE NUMBER AND 
(CHARACTER STATUS IN HIGH BYTE 
((R5)-EXPECTED CHARACTER IN LOU BYTE 
(AND LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
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SEQ 47 



006236 104400 
000004 
000011 
000777 
000007 
000200 
000000 
000005 
000037 
000004 



103437 



006240 



:0R LINE NUMBER ERROR 

Zt: SCOPE 

LENGTX-LEMGTX«1 

LENGTC-LENGTC^l 

XC00E-XCraE*2*l 

LINEX-LINEXU 

8ITX-SITX»BITX 

LENGTX-0 

LENGTC-5 

XCOOE-37 

.REPT 4 

.NLIST 

DATAR>LINEX*4004lOOOOO«XCOOE 
.LIST 

CHARTl \LINEX , \BITX . \LENGTX . \LENGTC . \XCOOE . \DATAR 
.NLIST 

LENGTX-LENGTXa 

LENGTC«LENGTC*1 

XC00E-XC0DE*2«1 

-LIST 

.ENOR 

0ATAR-LINEX*400» lOOOOO^XCODE 

CHARTl \LINEX . \BITX . \LENGTX , \LENGTC , \XCODE , \DATAR 



CHARACTER LENGTH TEST 
TRANSMIT 1 CHARACTER ON LINE 7 
CHARACTER LENGTH IS 5 BITS 
EXPECTED RECEIVED CHARACTER IS 37 
jLINE SPEED IS 9600 BAUD 



006240 
006240 
006246 
006254 



006262 
006270 
006276 
006304 
006312 
006320 
006326 
006334 
006342 
006346 
006350 



012767 
012767 
012767 



000036 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



000340 
000400 
006366 



004000 
000037 
000007 
177777 
015756 
033500 
000000 
000200 
007310 

007304 



171530 
007450 
007436 



007366 
007460 
007352 
007354 
007344 
007334 
007326 
007326 



006354 012705 103437 



TS \XN.400.2« 
T35: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN-XN«1 

MOV 
MOV 
MOV 
HOV 
MOV 
MOV 
BIS 
MOV 
1< : TSTB 
BPL 
MOV 



MOV 



006360 
006362 
006364 



020504 
001401 



CMP 
6EQ 
HLT 



«340.PS 
*400.ICOUNT 
•2 I. ESCAPE 

♦.FREEZl 



«eiT11.80HSCR 

#37.TDATA 

«7.80HSCR 

•-1.B0HBC 

•TDATA.0OHBA 

«33500,80HLPR 

«0.80HLPR 

«200.80HBAR 

80HSCR 

II 

80HNRC.R4 



«1 03437. R5 



RS.R4 
21 



: DISABLE ALL INTERRUPTS 
-.SET UP FOR 400 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP WITH DATA 



i 3 



i MASTER CLEAR INTERFACE 

{CHARACTER TO BE TRANSMITTED - 37( OCTAL) 

t SELECT LINE 7 

;SET UP TO TRANSMIT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

(SET LINE SPEED FOR 9600 BAUD 

:SET CHARACTER LENGTH FOR 5 BITS 

i START TRANSMITTER 

sUAIT TO RECEIVE CHARACTER 

((R4)-RECEIVED CHARACTER 

tIN LOU BYTE, AND LINE NUMBER AND 

; CHARACTER STATUS IN HIGH BYTE 

:(R5}-EXPECTED CHARACTER IN LOU BYTE 

:ANO LINE NUMBER AND CHARACTER 

; STATUS IN HIGH BYTE 

I ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 



CZOHE-CO 



MACRO V04.00 27-JUN-85 12:56:29 PAGE 19-24 



SEQ Ad 



006364 104000 

006366 104400 
000001 
000006 
000077 
103477 

006370 



EMT 

iOR LINE NUMBER ERROR 

2» : SCOPE 

LENGTX-LENGTX*! 

LENGTC-LENGTC*! 

XC00E-XC00E*2*1 

OATAR-LINEX*400*100000*XCODE 

CHARTl \LINEX , \BITX , \LEN6TX . \LEN6TC , \XCOOE . \OAT AR 

CHARACTER LENGTH TEST 
TRANSMIT 1 CHARACTER ON LINE 7 
CHARACTER LENGTH IS 6 BITS 
EXPECTED RECEIVED CHARACTER IS 77 
LINE SPEED IS 9600 BAUD 



006370 








TS \XN.400.2» 




006370 


012767 


000340 


171400 


T36: MOV 


*340,PS 


006376 


012767 


000400 


007320 


MOV 


MOO.ICOUNT 


006404 


012767 


006516 


007306 


MOV 


*2*, ESCAPE 










.IF NB <> 












MOV 


*,FREEZ1 










.ENDC 






000037 






XN^XN^l 




006412 


012777 


004000 


007236 


MOV 


«BITll.aDHSCR 


006420 


012767 


000077 


007330 


MOV 


♦77.TDATA 


006426 


012777 


AM AM 

000007 


007222 


MOV 


#7,8DnSCR 


006434 


012777 


177777 


007224 


MOV 


v-1, wiHBC 


006442 


012777 


015756 


007214 


MOV 


#T0ATA.80HBA 


006450 


012777 


033500 


007204 


MOV 


v33500 , wHLPk 


000430 


032 f f f 




VU r 1 rO 


BTC 




006464 


012777 


000200 


007176 


MOV 


•200.80HBAR 


006472 


105777 


007160 




11 : TSTB 


nnscR 


006476 


100375 






BPL 


1» 


006500 


017704 


007154 




NOV 


80HNRC.R4 


006504 


012705 


103477 




MOV 


•103477. R5 


006510 


020504 






CHP 


R5.R4 


006512 


001401 






BEQ 


21 


006514 








HLT 




006514 


104000 






EMT 




006516 


104400 






21: SCOPE 






000002 






LEN6TX-LEMGTX*1 






000007 






LENGTC-LENGTC^l 






000177 






XC00E-XC0OE*2*l 






103577 






0ATAR-LINEX*400 


»100000«XCOOE 



006520 



DISABLE ALL INTERRUPTS 
SET UP FOR 400 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP WITH DATA 



s 3 



MASTER CLEAR INTERFACE 

CHARACTER TO BE TRANSMITTED • 77( OCTAL) 

SELECT LINE 7 

SET UP TO TRANSMIT 1 BYTE 

I SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

iSET LINE SPEED FOR 9600 BAUD 

iSET CHARACTER LENGTH FOR 6 BITS 

: START TRANSMITTER 

iUAIT TO RECEIVE CHARACTER 

(R4)-RECEIVED CHARACTER 
IN LOU BYTE. AND LINE NUMBER AND 
CHARACTER STATUS IN HIGH BYTE 
(R5)-EXPECTE0 CHARACTER IN LOU BYTE 
AND LINE NUMBER AND CHARACTER 
I STATUS IN HIGH BYTE 

iARE EXPECTED AND RECEIVED DATA THE SAME 



{CHARACTER LENGTH. DATA 
:0R LINE NUMBER ERROR 



CHARTl \LINEX . \BITX . \LENGTX , \LENGTC , \XCXE . \DATAR 

{CHARACTER LENGTH TEST 
i TRANSMIT 1 CHARACTER ON LINE 7 
{CHARACTER LENGTH IS 7 BITS 
(EXPECTED RECEIVED CHARACTER IS 177 
{LINE SPEED IS 9600 BAUD 
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SEQ 49 



006520 

006520 012767 000340 

0C6S26 012767 000400 

006SS4 012767 006646 



006542 
006550 
006556 
006564 
006572 
006600 
006606 
006614 
006622 
006626 
006630 



000040 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



004000 
000177 
000007 
177777 
015756 
033500 
000002 
000200 
007030 

007024 



006634 012705 103577 



006640 
006642 
006644 
006644 

006646 



006650 



020504 
001401 

104000 

104400 
000003 
000010 
000377 
103777 



006650 
006650 
006656 
006664 



006672 
006700 
006706 
006714 
006722 
006730 
006736 



171250 
007170 
007156 



007106 
007200 
007072 
007074 
007064 
007054 
007046 
007046 



012767 
012767 
012767 



000041 
012777 
012767 
012777 
012777 
012777 
012777 
052777 



000340 171120 
000400 007040 
006776 007026 



004000 
000377 
000007 
177777 
015756 
033500 
000003 



006756 
007050 
006742 
006744 
006734 
006724 
006716 



TS \XN,400.2» 
T37: MOV 
MOV 
MOV 
IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
MOV 

1>: TSTB 
BPL 
MOV 



MOV 



CMP 
BEQ 
HLT 
EMT 



*340.PS 
«400.IC0UNT 
*2». ESCAPE 

*.FREEZ1 



MITll.BDHSCR 

♦177,T0ATA 

♦7.B0HSCR 

«-1.80HBC 

«TDATA.80HBA 

«33S00.8DHLPR 

*2.8DHLPR 

«200,80HBAR 

SOHSCR 

1» 

8DHNRC.R4 



•103577. R5 



R5.R4 
2» 



{DISABLE ALL INTERRUPTS 
:SET UP FOR 400 ITERATIONS 
:SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP MITH DATA 



! 3 



it : SCOPE 
LENGTX'LENGTX^l 
LENGTC-LENGTC*1 
XC00E«XC00E*2*1 
0ATAR-LINEX*400« 100000»XCODE 

CHARTl \LINEX . \BITX . \LENGTX . \LENGTC , SXCOOE . \D ATAR 



CHARACTER LENGTH TEST 
TRANSMIT 1 CHARACTER ON LINE 7 
CHARACTER LENGTH IS 10 BITS 
EXPECTED RECEIVED CHARACTER IS 377 
LINE SPEED IS 9600 BAUD 



: MASTER CLEAR INTERFACE 

sCHARACTER TO BE TRANSMITTED ■ 177C0CTAL) 

; SELECT LINE 7 

tSET UP TO TRANSMIT 1 BYTE 

sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

iSET LINE SPEED FOR %00 BAUD 

.■SET CHARACTER LENGTH FOR 7 BITS 

s START TRANSMITTER 

J WAIT TO RECEIVE CHARACTER 

;(R4)-RECEIVED CHARACTER 

:IN LOU BYTE. AND LINE NUMBER AND 

{CHARACTER STATUS IN HIGH BYTE 

t(R5}-EXPECTED CHARACTER IN LOU BYTE 

sAND LINE NUMBER AND CHARACTER 

: STATUS IN HIGH BYTE 

iARE EXPECTED AND RECEIVED DATA THE SAME 
> CHARACTER LENGTH. DATA 
iOR LINE NUMBER ERROR 



TS \XN,400.2) 
T40: MOV 
NOV 

nov 

.IF NB <> 
HOV 

.ENOC 
XN-XN*1 

NOV 
MOV 
HOV 
MOV 
MOV 
HOV 
BIS 



♦340. PS 
MOO.ICOUNT 
«2*. ESCAPE 

♦.FREEZl 



«eiTll,8DHSCR 
♦377 .TDATA 
«7. SOHSCR 
«-l.SOHBC 
«TDATA.80H8A 
#33500. SOHLPR 
♦3.BDHLPR 



{DISABLE ALL INTERRUPTS 
;SET UP FOR 400 ITERATIONS 
{SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP UITH DATA 



{MASTER CLEAR INTERFACE 

{CHARACTER TO BE TRANSMITTED - 377(0CT/U.) 

{SELECT LINE 7 

{SET UP TO TRANSMIT 1 BYTE 

{SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
{SET LINE SPEED FOR 9600 BAUD 
{SET CHARACTER LENGTH FOR 10 BITS 
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SEQ 50 



006744 012777 

006752 105777 

006756 100375 

006760 017704 



007000 



007000 
007000 
007006 
007014 



007022 
007030 
007036 
007044 
007052 
007060 



104037 



000200 006716 
006700 

006674 



1>: 



006764 012705 103777 



006770 020504 

006772 001401 
006774 

006774 104000 

006776 104400 
000004 
000011 
000777 
000010 
000400 
000000 
000005 
000037 
000004 



012767 
012767 
012767 



000042 
012777 
012767 
012777 
012777 
012777 
012777 



000340 
000400 
007126 



004000 
000037 
000010 
177777 
015756 
033500 



170770 
006710 
006676 



006626 
006720 
006612 
006614 
006604 
006574 



nov 

TSTB 

BPL 

NOV 



nov 



CMP 
BEQ 

HLT 

Eni 



«200.80HBAR 

8DHSCR 

1< 

aOHNRC,R4 



#103777, R5 



RS.R4 
2* 



21 : SCOPE 
LENGTX-LENGTX*1 
LENGTC-LENGTC«1 
XC00E-XC00E*2*1 
LINEX«LINEX*1 
BITX-BITX*BITX 
LENGTX-0 
LENGTC-5 
XC00E"37 
.REPT 4 
.NLIST 

OATAR-LINEX*400*100000*XCOOE 
.LIST 

CHARTl \LINEX , \BITX . VLENGTX . \LENGTC . \XCQDE . \0AT AR 
.NLIST 

LENGTX-LENGTX*1 

LENGTC-LENGTC*1 

XC00E-XC00E*2*1 

.LIST 

.ENOR 

0ATAR-LINEX*4OO*100OOO*XC00E 

CHARTl \LINEX . \BITX . \LENGTX , \LENGTC . \XCOOE. \OATAR 

i CHARACTER LENGTH TEST 
(TRANSMIT 1 CHARACTER ON LINE 10 
(CHARACTER LENGTH IS 5 BITS 
(EXPECTED RECEIVED CHARACTER IS 37 
(LINE SPEED IS 9600 BAUD 



(START TRANSMITTER 

(UAIT TO RECEIVE CHARACTER 

(R4)-RECEIVED CHARACTER 
IN LOU BYTE. AND LINE NUMBER AND 
CHARACTER STATUS IN HIGH BYTE 
(R5)-EXPECTED CHARACTER IN LOU BYTE 
AND LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
:0R LINE NUMBER ERROR 



TS \XN 
T41: 



.400.2> 
NOV 
NOV 
MOV 
IF NB <> 
MOV 



.ENOC 
XN-XN*! 



MOV 
MOV 
MOV 

ricy 

MOV 
MOV 



«340.PS 
«400.IC0UNT 
•2«. ESCAPE 

•.FREEZl 



«BIT11.60HSCR 

♦37,TDATA 

nO.BOHSCR 

«-l.»HBC 

«TOATA.SOHBA 

•335UU.SDMLPR 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 400 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



i 3 



(MASTER CLEAR INTERFACE 

(CHARACTER TO BE TRANSMITTED - 37( OCTAL) 

(SELECT LINE 10 

(SET UP TO TRANSMIT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
(SET LINE SPEED FOR 9600 BAUD 
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SEQ 51 



007066 052777 OOOOOO 006566 

007074 012777 000400 0C6566 

007102 105777 006550 

007106 100375 

007110 017704 006544 



007114 012705 104037 



IS: 



007120 
007122 
007124 
007124 

007126 



007130 



0071S0 
007130 
007136 
007144 



020504 
001401 

104000 

104400 
000001 
000006 
000077 
104077 



BIS 

nov 

TSTB 
BPL 

nov 



nov 



CMP 
BEQ 
HLT 
EHT 



«O,0OHLPR 
«4OO.0OH8AR 

«)HSCR 
it 

80HNRC.R4 



•104037. R5 



RS,R4 
21 



2 J : SCOPE 

LEN6TX-LENGTX*1 

LENGTC-LEN6TC*1 

XC0OE-XCOOE*2*l 

OATAR-LINEX*400«100000«XCOOE 

CHARTl \LINEX , \BITX . \LEN6TX . \LEN6TC , \XCOOE , \OAT AR 

(CHARACTER LENGTH TEST 
iTRANSniT 1 CHARACTER ON LINE 10 
(CHARACTER LENGTH IS 6 BITS 
(EXPECTED RECEIVED CHARACTER IS 77 
(LINE SPEED IS 9600 BAUD 



:SET CHARACTER LENGTH TOR 5 BITS 

(START TRANSMITTER 

:UAIT TO RECEIVE CHARACTER 

((R4}-RECEIVE0 CHARACTER 
(IN LOU BYTE. AND LINE NUHBER AND 
(CHARACTER STATUS IN HIGH BYTE 
((R5)-EXPECTED CHARACTER IN LOW BYTE 
(AND LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
(OR LINE NUMBER ERROR 



012767 
012767 
012767 



000340 
000400 
007256 



170640 
006560 
006546 



TS \XN. 400.21 
T42s nov 
NOV 
NOV 
,IF NB o 
NOV 

.ENDC 



•340. PS 
•400.IC0UNT 
•2 I, ESCAPE 

•.FREEZl 



(DISABLE ALL INTERRUPTS 
(SET UP PGR 400 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP UITH DATA 



I 3 





000043 






XN"XN«1 






007152 


012777 


004000 


006476 




MOV 


•BITll.OOHSCR 


007160 


012767 


000077 


006570 




NOV 


♦77.T0ATA 


007166 


012777 


000010 


006462 




NOV 


•lO.ttHSCR 


007174 


012777 


177777 


006464 




HOV 


•-1.0NBC 


007202 


012777 


015756 


006454 




NOV 


•T0ATA.80HBA 


007210 


012777 


033500 


006444 




MOV 


•33500. 0OHLPR 


007216 


052777 


000001 


006436 




BIS 


•l.BOHLPR 


007224 


012777 


000400 


006436 




MOV 


•400.80HBAR 


007232 


105777 


006420 




11: 


TSTB 


a)HSCR 


0072S6 


100375 








BPL 


11 


007240 


017704 


006414 






MOV 


0HNRC.R4 


007244 


012705 


104077 






MOV 


•1 04077. R5 


007250 


020504 








CMP 


RS.R4 


007252 


001401 








BEQ 


2t 


007254 










HLT 




007254 


104000 








EMT 





(MASTER CLEAR INTERFACE 

(CHARACTER TO BE TRANSMITTED - 77(0CTAL) 

(SELECT LINE 10 

(SET UP TO TRANSMIT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

(SET LINE SPEED FOR 9600 BAUD 

(SET CHARACTER LENGTH FOR 6 BITS 

(START TRANSMITTER 

lUAIT TO RECEIVE CHARACTER 

((R4}-RECEIVED CHARACTER 
(IN LOU BYTE. AND LINE NUMBER AND 
(CHARACTER STATUS IN HIGH BYTE 
((RS)-EXPECTED CHARACTER IN LOU BYTE 
(AND LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
I OR LINE NUMBER ERROR 
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SEQ S2 



0072S6 


104400 






21 : SCOPE 


1 




000002 






LENGTX-LENGTX*! 






000007 






LENGTC-LENGTC*! 






000177 






XCOOE-XC0f>E*2«l 






104177 






OATAR-LINEX*400*iOOOOO«XCOOE 




007260 








CHARTl \LINEX . \BZTX , \LENGTX . \LEMGTC . \XCOOE . \DAT AR 










1 CHARACTER LENGTH TEST 












iTRANSniT 1 CHARACTER ON LINE 10 










iCHARACTER LENGTH IS 7 BITS 












{EXPECTED RECEIVED CHARACTER IS 


177 










iLINE SPEED IS 9600 BAUD 




007260 








TS \XN,400,2I 




007260 


AM A^tf ^ 

012767 


AAAil^ A 

000340 


4 ^ AE 4 A 

170510 


T43: NOV #340. PS 


{DISABLE ALL INTERRUPTS 


007266 


012767 


AAAA AA 

000400 


AA^^ VA 

006490 


NOV MOO.ICOUNT 


(SET UP FOR 400 ITERATIONS 


007274 


AA A4^^ 

012767 


AA^K A£ 

007406 


AA^A t A 

006416 


NOV 42 t, ESCAPE 


iSET UP TO ESCAPE TO NEXT TEST 










.IF NB <> 












NOV •.FREEZl 


iSET UP TO LOOP WITH DATA i 3 










.ENDC 






00Q044 






XN"XN«1 




AA^4 A1 

007302 


0X2777 


AA AAAA 

004000 


006940 


NOV 46IT11.80HSCR 


tNASTER CLEAR INTERFACE 


007910 


012767 


AAAt 

000177 


AA^AAA 

006440 


NOV •177.TDATA 


iCHARACTER TO BE TRANSMITTED - 177(0CTAL} 


AA1V • A 

0C7316 


012777 


AAAA t A 

000010 


0069 92 


NOV •lO.BDHSCR 


•SELECT LINE 10 


007324 


012777 


177777 


006994 


NOV 4-1. 0WC 


iSET UP TO TRANSMIT 1 BYTE 


007392 


A4 9^^^ 

012777 


At K^C£ 


000924 


NOV •TOATA.0OHBA 


iSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 


007940 


012777 


0995UV 


000914 


NOV 433500. aOHLPR 


iSET LINE SPEED FOR 9600 BAUD 


007946 


052777 


AAAAAO 

000002 


#V\AVA^ 

006906 


BIS •2.aOHLPR 


iSET CHARACTER LENGTH FOR 7 BITS 


007934 


A4 

012777 


AAAA AA 

00O4O0 


AAAVA£ 

006906 


NOV «4OO.0OHBAR 


{START TRANSMITTER 


00796c 


105777 


0062 70 




1>: TSTB »HSCR 


lUAIT TO RECEIVE CHARACTER 


007966 


100975 






BPL 11 




AA^V^A 

007970 


At ^YA# 

017704 


006264 




NOV 0HNRC.R4 


t(R4)-RECEIVE0 CHARACTER 












iIN LOU BYTE, AND LINE NUMBER AND 












iCHARACTER STATUS IN HIGH BYTE 


007974 


At 4^AK 

0IZ705 


t AA t 79 

104177 




NOV 4104177. RS 


i(RS)-EXPECTED CHARACTER IN LOU BYTE 












lAND LINE NUMBER AND CHARACTER 












1 STATUS IN HIGH BYTE 


AAHAAA 

007400 


020504 






CNP RS.R4 


lARE EXPECTED AND RECEIVED DATA THE SAME 


007402 


AAt AAt 

001401 






KQ 2* 




007404 








HLT 


iCHARACTER LENGTH. DATA 


AA^^AA 

007404 


t A^AAA 
104000 






ENT 














iOR LINE NUMBER ERROR 


007406 


104400 






21 : SCOPE 






000003 






LEN6TX-LENGTX*1 






AAAAt A 

000010 






LENCTC-LENGTC^l 






AAAV^^ 

000977 






XCa0E-XCQ0E42*l 






t AAV*f ^ 

104977 






0ATAR-LINEX«4O0«10O000*XC00e 




007410 








CMARTl \LINEX.\aiTX.\LENGTX.\LEN6TC.\XC0DE.\0ATM( 










iCHMIACTCR LENGTH TEST 












iTRANSniT 1 CHARACTER ON LINE 10 










iCHfUIACTER LENGTH IS 10 BITS 












•EXPECTED RECEIVED CHMUCTER IS 


377 










iLINE SPEED IS WOO BAUD 




007410 








TS \XN.400.2I 




007410 

t 


012767 


000340 


170360 


T44: NOV 4340. PS 


lOISRBLE MX INTEMIUPTS 



CZONTCO 



WCRO V04.00 27.JUN-S5 12:S6:29 PNGE 19-24 



SCQ S3 



007416 012767 000400 
007424 01276? 007536 



0074S2 
007440 
007446 
0074S4 
007462 
007470 
007476 
00 7504 
007512 
0075 16 
007520 



000045 

012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



007530 
0C7S32 
007534 
007534 

007536 



007540 



020504 
001401 

104000 

104400 
000004 

000011 
000777 
000011 
001000 
000000 
000005 
000037 
000004 



104437 



004000 
000377 
000010 
177777 
015756 
033500 
000003 
000400 
006140 

006134 



006300 
006266 



006216 
006310 
006202 
006204 
006174 
006164 
006156 
006156 



007524 012705 104377 



NOV 
nov 

.IF »e 

t«v 

.EMK 
XN«XN*1 

nov 
nov 
nov 
nov 
nov 
nov 



It: 



nov 

TSTB 
BPL 

nov 



nov 



CMP 
BEQ 
HLT 
EnT 

SCOPE 



4400.IC0UNT 
•21. ESCAPE 

•.FREEZl 



4BITll.M)H5Cft 

•377,T0AT* 

•10.«>HSCR 

«-l.«>»«C 

•TDATA.0OHBA 

#33500. 9DHLPR 

•3.0OHLPR 

4400.S0HBAR 

80HSCR 

II 

a)HNRC.R4 



#104377. R5 



R5.R4 
21 



I SET UP rOR 400 ITERATIONS 
iSET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP UITH DATA 



t 3 



2*: 

LENGTX-LENGTX*1 

LEMGTC-LENGTC*! 

XC00E-XC0DE*2U 

LINEX-LINEX*! 

8ITX-BITX»BITX 

LENGTXoO 

LENGTC-5 

XCWE-37 

.REPT 4 

.NLIST 

OATAR-LINEXMOO* 100000 *XCOOE 
• LIST 

CHARTl \LINEX . \BITX . VLENGTX . \LENGTC . \XCOOE . \DAT AR 
.NLIST 

LENCTX-LENGTX*! 

LEN6TC-LEN6TC*! 

XCG0E-XCQ0E*2*1 

•LIST 

.ENDR 

OATAR-LINEX*400* 100000 *XCOOE 

CHARTl \LINEX . \8ITX . \LEN6TX , \LEN6TC . \XC00E . \D AT AR 

(CHARACTER LENGTH TEST 
sTRANSniT 1 CHARACTER ON LINE 11 
;CHARACTER LENGTH IS 5 BITS 
{EXPECTED RECEIVED CHARACTER IS 37 
(LINE SPEED IS 9600 BAUD 



:HASTER CLEAR INTERFACE 

;CHARACTER TO BE TRANSHITTEO - 377(0CTAL) 

J SELECT LINE 10 

,SET UP TO TRANSMIT 1 BYTE 

jSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

iSET LINE SPEED FOR %00 BAUD 

J SET CHARACTER LENGTH FOR 10 BITS 

:START TRANSMITTER 

>UAIT TO RECEIVE CHARACTER 

(R4)-RECEIVE0 CHARACTER 

IN LOU BYTE. AND LINE NUMBER AND 

CHARACTER STATUS IN HIGH BYTE 

(R5)-EXPECTE0 CHARACTER IN LOW BYTE 
(AND LINE NUMBER AND CHARACTER 
: STATUS IN HIGH BYTE 

:ARE EXPECTED AND RECEIVED DATA THE SAME 
{CHARACTER LENGTH, DATA 
:0R LINE NUMBER ERROR 



007540 



TS \XN.400.2I 



CZOHCCO 
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SEQ 54 







000340 


170230 




nov 


#340, PS 


lOISABLE ALL INTERRUPTS 


007546 


012767 


000400 


006150 




nov 


4400.IC0UNT 


I SET UP FOR 400 ITERATIONS 


007SS4 


012767 


007666 


006136 




nov 


#2*. ESCAPE 


J SET UP TO ESCAPE TO NEXT TEST 










.IF NB 


< > 
















NOV 


4.FREEZ1 


tSET UP TO LOOP UITH DATA ; 3 










.ENOC 










000046 






XN«XN* 


i 








012777 


004000 


006066 

WWW 




NOV 


#BITll .0OHSCR 


jNASTER CLEAR INTERFACE 


007570 


VAC « V ' 


000037 


006160 




NOV 


•37,T0ATA 


iCHARACTER TO BE TRANSNITTED ■ 37C0CTAL) 


007576 


012777 

WXC III 


000011 


006052 




NOV 


#11.80HSCR 


(SELECT LINE 11 


007604 


012777 

VXC lit 


177777 


006054 




NOV 


*-l.SOHBC 


J SET UP TO TRANSNIT 1 BYTE 


007612 


012777 


015756 


006044 




NOV 


*TDATA.90HBA 


tSET UP ADDRESS OF CHARACTER TO BE TRANSNITTED 


007620 


012777 


033500 


006034 




NOV 


*335O0,S0HLPR 


{SET LINE SPEED FOR 9600 BAUD 


007626 


052777 


000000 


006026 




BIS 


#0,BOHLPR 


iSET CHARACTER LENGTH FOR 5 BITS 


007614 


01P777 


001000 


006026 




NOV 


•1000. 80HB Aft 


t START TRANSNITTER 




105777 


006010 




11 : 


TSTB 


80HSCR 


lUAIT TO RECEIVE CHARACTER 


007646 


100375 








BPL 


1* 




0076SO 


017704 


006004 






NOV 


80HNftC.ft4 


>(R4)-RECEIVED CHARACTER 












sIN LOU BYTE. AND LINE NUNBER AND 
















iCHARACTER STATUS IN HIGH BYTE 


007654 


012705 


104437 






NOV 


4104437, R5 


;(RS)-EXPECTED CHARACTER IN LOU BYTE 














:ANO LINE NUMBER AND CHARACTER 
















: STATUS IN HIGH BYTE 


0C7660 


020504 








CNF 


R5.ft4 


sARE EXPECTED AND RECEIVED DATA THE SANE 


007662 


001401 








BEQ 


2$ 




007664 










HLT 




iCHARACTER LENGTH. DATA 


007664 


104000 








EhT 




















iOR LINE NUNBER ERROR 


007666 


104400 






2«: 


SCOPE 








000001 






LEN6TX 


•LENGTX.l 








000006 






LENGTC 


-LENGTC ♦I 








000077 






XCOOE- 


XCWE*2»1 








104477 






OATAR* 


LINEX*400 


» 100000 «XC00E 





007670 



007670 
007670 
007676 
007704 



007712 
007720 
007726 
007734 
007742 
007750 
007756 
007764 



CHARTl \LINEX . \BITX . \LENGTX , \LEN6TC . \XC0DE . \DATAR 

; CHARACTER LENGTH TEST 
; TRANSMIT 1 CHARACTER ON LINE 11 
iCHARACTER LD4GTH IS 6 BITS 
:EXPECTED RECEIVED CHARACTER IS 77 
:LINE SPEED IS 9600 BAUD 



012767 
012767 
012767 



000047 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 



000340 
000400 
010016 



004000 

000077 
000011 
177777 
015756 
033500 
000001 
001000 



170100 
006020 
006006 



005736 
006030 
005722 
005724 
005714 
005704 
005676 
005676 



TS \XN.400.2« 
T46: HOV 
NOV 
NOV 
.IF NB <> 
NOV 

.ENDC 
XM-XM*1 

NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
BIS 
NOV 



•340. PS 

•400.IC0UNT 
•2 «. ESCAPE 

♦.FRF.EZ1 



•BITll.SOHSCR 

♦77,TDATA 

•11.80HSCR 

•-l.flOHBC 

•TDATA.SOHSA 

•33500. 90HLPR 

•l.SOHLPR 

•lOOO.SOHBAR 



(DISABLE ALL INTERRUPTS 
:SET UP FOR 400 ITERATING 
jStT UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP UITH DATA 



iNASTER CLEAR INTERFACE 

iCHARACTER TO BE TRANSNITTED - 77C OCTAL) 

s SELECT LINE 11 

;SET UP TO TRANSNIT 1 BYTE 

iSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
:SET LINE SPEED FOR 9600 BAUD 
iSET CHARACTER LENGTH FOR 6 BITS 
! START TRANSNITTER 



CZONE-CO 
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SEQ 55 



007772 105777 005660 

007776 100375 

010000 017704 00SfS« 



010004 012705 104477 



It: 



010010 
010012 
010014 
010014 

010016 



010020 



020504 
001401 

104000 

104400 

000002 
000007 
000177 
104577 



TSTB 
BPL 

nov 



HOV 



CMP 
BEQ 
HLT 
EHT 



80HSCR 
II 

B0HNRC.R4 



♦104477. R5 



RS.R4 
2* 



2»: SCOPE 
LENGTX-LENGTX»1 
LENGTC«LENGTC*1 
XC0DE"XC0DE*2*1 
DATAR-LINEX*400* 100000 *XCOOE 

CHARTl \LINEX , \BITX . \LENGTX . \LENGTC . \XCOOE. XOATAR 

; CHARACTER LENGTH TEST 

: TRANSMIT 1 CHARACTER ON LINE 11 

! CHARACTER LENGTH IS 7 BITS 

: EXPECTED RECEIVED CHARACTER IS 177 

sLINE SPEED IS 9600 BAUD 



;UAIT TO RECEIVE CHARACTER 

2(R4)«RECEIVED CHARACTER 

tIN LOU BYTE. AND LINE NUMBER AND 

: CHARACTER STATUS IN HIGH BYTE 

:(R5)-EXPF.CTED CHARACTER IN LOW BYTE 

>ANO LINF NUMBER AND CHARACTER 

8 STATUS IN HIGH BYTE 

sARE EXPECTED AND RECEIVED OATA THE SAME 
: CHARACTER LENGTH. DATA 
:0R LINE NUMBER ERROR 



010020 








TS \XN.400,2I 




010020 


012767 


000340 


167750 


T47: 


MOV 


•340. PS 


010026 


012767 


000400 


005670 




MOV 


«400.IC0UNT 


010034 


012767 


010146 


005656 




MOV 


•21, ESCAPE 










.IF NB 


<> 












MOV 


•.FREEZl 










.ENOC 








000050 






XN-XN*1 






010042 


012777 


004000 


005606 




MOV 


•8IT11.8DHSCR 


010050 


012767 


000177 


005700 




MOV 


•177,TDATA 


010056 


012777 


000011 


005572 




MOV 


•11.80HSCR 


010064 


012777 


177777 


005574 




MOV 


•-1.80HBC 


010072 


012777 


015756 


005564 




MOV 


•TDATA.9DHBA 


010100 


012777 


033500 


005554 




MOV 


•33500. 8DHLPR 


010106 


052777 


000002 


005546 




BIS 


•2.0OHLPR 


010114 


012777 


001000 


005546 




MOV 


•lOOO.SOHBAR 


010122 


105777 


005530 




It: 


TSTB 


80HSCR 


010126 


100375 








BPL 


1» 


010130 


017704 


005524 






MOV 


80HNRC,R4 


010134 


012705 


104577 






MOV 


•104577. R5 


010140 


020504 








CMP 


R5.R4 


010142 


001401 








BEQ 


21 


010144 










W.T 




010144 


104000 








EMT 




010146 


104400 






2i: 


SCOPE 






000003 






LENGTX- 


LENGTX«1 





{DISABLE ALL INTERRUPTS 
;SET UP FOR 400 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP WITH DATA 



MASTER CLEAR INTERFACE 

CHARACTER TO BE TRANSMITTED - 177(0CTAL) 

SELECT LINE 11 

SET UP TO TRANSMIT 1 BYTE 

SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

SET LINE SPEED FOR 9600 BAUD 

SET CHARACTER LENGTH FOR 7 BITS 

START TRANSMITTER 

WAIT TO RECEIVE CHARACTER 

(R4)-RECEIVE0 CHARACTER 
tIN LOU BYTE. AND LINE NUMBER AND 
(CHARACTER STATUS IN HIGH BYTE 
{(R5)-EXPECTED CHARACTER IN LOU BYTE 
;AND LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
(OR LINE NUMBER ERROR 



cztm-co 
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SEQ 56 



010150 



000010 
000377 
104777 



010150 

010150 012767 

010156 012767 

010164 012767 



010172 
010200 
010206 
010214 
010222 
010230 
010236 
010244 
010252 
010256 
010260 



000051 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



000340 
000400 
010276 



004000 
000377 
000011 
177777 
015756 
033500 
000003 
001000 
005400 

005374 



167620 
005540 
005526 



005456 
005550 
005442 
005444 
005434 
005424 
005416 
005416 



010264 012705 104777 



010270 
010272 
010274 
010274 

010276 



020504 
001401 

104000 

104400 

000004 
000011 
000777 
000012 
002000 
000000 
000005 
000037 
000004 



LENGTC-LENGTC*1 
XC00E-XC00E*2*1 
0ATAR-LINEX*400* 100000*XC00E 

CHARTl \LINEX . VBITX , \LENGTX , \LENGTC . \XC0DE. \OATAR 

CHARACTER LENGTH TEST 
TRANSMIT 1 CHARACTER ON LINE 11 
CHARACTER LENGTH IS 10 BITS 
EXPECTED RECEIVED CHARACTER IS 377 
LINE SPEED IS 9600 BAUD 



TS \XN.400.2I 
T50: mv 
HOV 
HOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

HOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
MOV 
II: TSTB 
BPL 
MOV 



MOV 



CMP 
BEQ 
HLT 
EMT 



•340. PS 
♦40O.IC0UNT 
«2t. ESCAPE 

♦.FREEZl 



«6IT11.8DHSCR 

#377,T0ATA 

«ll.fiOHSCR 

«-l.aOHBC 

«T0ATA.80HBA 

«33500.80HLPR 

«3.8DHLPR 

«1000.8DHBAR 

80HSCR 

II 

8DHNRC.R4 



•104777. R5 



R5,R4 
21 



21 : SCOPE 
LENGTX-LENGTXfl 
LENGTC-L£NGTC«1 
XC00E-XCraE*2«l 
LINEX-LINEX*1 
BITX-6ITX*BITX 
LENGTX-0 
LENGTC-5 
XCODE-37 
.REPT 4 
.NLIST 

0ATAR-LINEX*400*100000*XC00E 
.LIST 

CHARTl \LINEX . \6ITX . \LENGTX , \LENGTC , NXCOOE , \0ATAR 
.NLIST 

LENGTX-LENGTX*1 
LENGTC-LENGTC*1 



:0ISABLE ALL INTERRUPTS 
J SET UP FOR 400 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP WITH DATA 



MASTER CLEAR INTERFACE 

CHARACTER TO BE TRANSMITTED • 377(0CTAL) 

SELECT LINE 11 

SET UP TO TRANSMIT 1 BYTE 

SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

SET LINE SPEED FOR 9600 BAUD 

SET CHARACTER LENGTH FOR 10 BITS 

START TRANSMITTER 

UAIT TO RECEIVE CHARACTER 

(R4)-RECEIVED CHARACTER 
IN LOU BYTE. AND LINE NUMBER AND 
CHARACTER STATUS IN HIGH BYTE 
(R5)«EXPECTED CHARACTER IN LOU BYTE 
AND LINE NUMBER AND CHARACTER 
STATUS IN HIGH BYTE 

ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
;0R LINE NUMBER ERROR 



CZOHE-CO 
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SEQ 57 



010300 



105037 



XC0OE-XC0OE*2*l 

.LIST 

.ENOR 

OATAR-LINEX*400*100000*XCOOE 

CHARTl \LINEX , \BITX . \LENGTX . \LENGTC , \XCODE . \OATAR 

CHARACTER LENGTH TEST 
TRANSMIT 1 CHARACTER ON LINE 12 
CHARACTER LENGTH IS 5 BITS 
EXPECTED RECEIVED CHARACTER IS 37 
LINE SPEED IS 9600 BAUD 



010300 

010300 012767 

010306 012767 

010314 012767 



000340 167470 
000400 005410 
010426 005376 



010322 
010330 
010336 
010344 
010352 
010360 
010366 
010374 
010402 
010406 
010410 



000052 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



004000 
000037 
000012 
177777 
015756 
033500 
000000 
002000 
005250 

005244 



005326 
005420 
005312 
005314 
005304 
005274 
005266 
005266 



010414 012705 105037 



TS \XN.400.2* 
T51: MOV 
HOV 
MOV 
.IF N8 <> 
MOV 

.ENDC 
XN-XN*1 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
MOV 

1 » : TSTB 
BPL 
MOV 



MOV 



010420 
010422 
010424 
010424 

010426 



010430 



020504 
001401 

104000 

104400 
000001 
000006 
000077 
105077 



CMP 
BEQ 
HLT 
EMI 



#340. PS 
«400.IC0UNT 
«2>, ESCAPE 

«.FREEZ1 



«6IT11.0DHSCR 

♦37,TDATA 

«12.aDHSCR 

«-1.80HBC 

*TDATA,8DHBA 

«33500,8DHLPR 

«0,80HLPR 

*2000,8DHBAR 

80HSCR 

it 

80HNRC.R4 



«105037.R5 



R5.R4 
2» 



; DISABLE ALL INTERRUPTS 
iSET UP FOR 400 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP WITH DATA 



I 3 



21 ; SCOPE 
LENGTX-LENGTX^l 
LENGTC-LENGTC*1 
XCOOE-XCOOE*2*1 
OATAR-LINEX*400« 100000*XCODE 

CHARTl SLINEX.\BITX.\LENGTX.\LENGTC.\XCOOE. SOATAR 

{CHARACTER LENGTH TEST 
: TRANSMIT 1 CHARACTER ON LINE 12 
: CHARACTER LENGTH IS 6 BITS 
(EXPECTED RECEIVED CHARACTER IS 77 
{LINE SPEED IS 9600 BAUD 



MASTER CLEAR INTERFACE 

CHARACTER TO BE TRANSMITTED - 37( OCTAL) 

SELECT LIHE 12 

SET UP TO TRANSMIT 1 BYTE 

SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

SET LINE SPEED FOR 9600 BAUD 

SET CHARACTER LENGTH FOR 5 BITS 

START TRANSMITTER 

WAIT TO RECEIVE CHARACTER 

i(R4)-RECEIVED CHARACTER 
ilN LOU BYTE. AND LINE NUMBER AND 
(CHARACTER STATUS IN HIGH BYTE 
i(RS)-EXPECTED CHARACTER IN LOU BYTE 
iAND LINE NUMBER AND CHARACTER 
•.STATUS IN HIGH BYTE 

sARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
iOR LINE NUMBER ERROR 



010430 

010430 012767 000340 167340 
010436 ^ 012767 000400 005260 



TS \XN. 400.2* 
T52: MOV 
MOV 



«340.PS 
«400.IC0UNT 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 400 ITERATIONS 
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SEQ 5& 



010444 012767 010556 005246 



010452 
010460 
010466 
010474 

010502 
010510 
010516 
010524 
010532 
010536 
010540 



000053 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



004000 

000077 
000012 
177777 
015756 
033500 
000001 
002000 
005120 

005114 



010544 012705 105077 



010550 
010552 
010554 
010554 

010556 



010560 



010560 
010560 
010566 
010574 



010602 
010610 
010616 
010624 
0106S2 
010640 
010646 
010654 
010662 
010666 



020504 
001401 

104000 

104400 

000002 
000007 
000177 
105177 



005176 
005270 
005162 
005164 
005154 
005144 
005136 
005136 



012767 
012767 
012767 



000054 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 



000340 167210 
000400 005130 
010706 005116 



004000 
000177 
000012 
177777 
015756 
033500 
000002 
002000 
004770 



005046 
005140 
005032 
005034 
005024 
005014 
005006 
005006 



nov 

.IF NB <> 
NOV 

.ENDC 
XN-XN«1 

nov 
nov 
nov 
nov 
nov 
nov 

BIS 

nov 

1»: TST8 
BPL 

nov 



nov 



cnp 

BEQ 
HLT 
EnT 



#2*. ESCAPE 
♦.FREEZl 



«eiTll,8DHSCR 

#77.TDATA 

*12.a)HSCR 

•-l.tfHBC 

*TDATA.«)HBA 

•33500. 0OHLPR 

•1.8DHLPR 

42000. SOHBAR 

80HSCR 

1* 

8DHNRC.R4 



♦105077. R5 



R5,R4 
2$ 



•.SET UP TO ESCAPE TO NEXT TEST 
J SET UP TO LOOP WITH DATA 



I 3 



2> : SCOPE 
LENGTX-LENGTX»1 
LENGTC-LENGTC*1 
XC00E-}(C00E*2«1 
DATAR-LINEX*400* 100000*XCOOE 

CHARTl \LINEX . \BITX . \LENGTX . \LENGTC , \XCODE , VOATAR 

i CHARACTER LENGTH TEST 

:TRANSniT 1 CHARACTER ON LINE 12 

{CHARACTER LENGTH IS 7 BITS 

; EXPECTED RECEIVED CHARACTER IS 177 

sLINE SPEED IS 9600 BAUD 



MASTER CLEAR INTERFACE 

CHARACTER TO BE TRANSMITTED - 77( OCTAL) 

SELECT LINE 12 

SET UP TO TRANSMIT 1 BYTE 

SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

SET LINE SPEED FOR %00 BAUD 

SET CHARACTER LENGTH FOR 6 BITS 

START TRANSMITTER 

WAIT TO RECEIVE CHARACTER 

(R4)-RECEIVED CHARACTER 
IN LOU BYTE. AND LINE NUMBER AND 
CHARACTER STATUS IN HIGH BYTE 
CR5)-EXPECTED CHARACTER IN LOU BYTE 
AND LINE NUMBER AND CHARACTER 
STATUS IN HIGH BYTE 

ARE EXPECTED AND RECEIVED DATA THE SAME 
: CHARACTER LENGTH. DATA 
(OR LINE NUMBER ERROR 



TS \XN, 400,21 
T53: nov 

nov 
nov 

.IF NB <> 

nov 

.ENDC 
XN-XN*1 

nov 
nov 
nov 
nov 
nov 
nov 

BIS 

nov 

1»: TSTB 
BPL 



#340, PS 
MOO.ICOUNT 
•2 I. ESCAPE 

«. FREEZl 



46IT11.80HSCR 

♦177,TDATA 

•12.a)HSCR 

•-l.ttHBC 

•TOATA.SDHBA 

433500. 8DHLPR 

42.80HLPR 

42000, «)HBAR 

8DHSCR 

II 



i DISABLE ALL INTERRUPTS 
;SET UP FOR 400 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP UITH DATA 



tnASTER CLEAR INTERFACE 

(CHARACTER TO BE TRANSMITTED - 177(0CTAL} 

(SELECT LINE 12 

(SET UP TO TRANSMIT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSniTTED 

(SET LINE SPEED FOR 9600 BAUD 

(SET CHARACTER LENGTH FOR 7 BITS 

(START TRANSMITTER 

(UAIT TO RECEIVE CHARACTER 
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SCO 59 



010670 017704 004764 



010674 012705 105177 



010700 
010702 
010704 
010704 

010706 



010710 



020504 
001401 

104000 

104400 

000003 
000010 
000377 
105377 



nov 



MOV 



CMP 
BEQ 
HLT 
EMT 



8DlflMC.R4 



♦105177. R5 



RS.R4 
21 



010710 



2ti SCOPE 
LENGTX-LENGTXtl 
LENGTC-LENGTC*! 
XC00E-XC(»E*2*1 
OAT AR-LINEX*400 * 100000 *XC00E 

CHARTl \LINEX .\BITX .\LENGTX , \LENGTC , \XC0DE . \DATAR 

CHARACTER LENGTH TEST 
TRANSMIT 1 CHARACTER ON LINE 12 
CHARACTER LENGTH IS 10 BITS 
EXPECTED RECEIVED CHARACTER IS 377 
iLINE SPEED IS 9600 BAUD 



!CR4)-RECEIVE0 CHARACTER 
:IN LOU BYTE. AND LINE NUMBER AND 
{CHARACTER STATUS IN HIGH BYTE 
j(R5)-EXPECTED CHARACTER IN LOU BYTE 
;AN0 LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

iARE EXPECTED AND RECEIVED DATA THE SAME 
{CHARACTER LENGTH, DATA 
:0R LINE NUMBER ERROR 



TS \XN. 400,2* 



010710 


A4 'l^f ^ 

012767 


AAAV4 A 

000340 


4 £ ^A^A 

167060 


T54: 


MOV 


♦340. PS 


010716 


A4 


000400 


AACAAA 

005000 




MOV 


♦400,IC0UNT 




Ulc /Or 


A4 lATH 






MOV 


9cr .toLArt 










.IF NB 


<> 














MOV 


♦.FREEZl 










.ENDC 








000055 






XN-XN^l 






010732 


012777 


004000 


004716 




MOV 


♦BIT11.8DHSCR 


010740 


012767 


000377 


005010 




MOV 


♦377.TDATA 


010746 


012777 


000012 


004702 




MOV 


♦12.80HSCR 


010754 


012777 


177777 


004704 




MOV 


♦-l.OOHBC 


010762 


012777 


015756 


004674 




MOV 


♦TDATA.8DHBA 


010770 


012777 


033500 


004664 




MOV 


♦33500. 80HLPR 


010776 


052777 


000003 


004656 




BIS 


♦3,e0HLPR 


011004 


012777 


002000 


004656 




MOV 


♦2000.80HBAR 


011012 


105777 


004640 




It: 


TSTB 


8DHSCR 


011016 


100375 








BPL 


11 


011020 


017704 


004634 






MOV 


a)HNRC.R4 


011024 


012705 


105377 






MOV 


♦105377. R5 


011030 


020504 








CMP 


R5.R4 


011032 


001401 








BEQ 


21 


011034 










HLT 




011034 


104000 








EMT 




0110S6 


104400 






2): 


SCOPE 






000004 






LENGTX-LENGTX^l 






000011 






LENGTC-LENGTC*1 





-.DISABLE ALL INTERRUPTS 
sSET UP FOR 400 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP UITH DATA 



I 3 



} MASTER CLEAR INTERFACE 
CHARACTER TO BE TRANSMITTED - 377( OCTAL) 
SELECT LINE 12 
SET UP TO TRANSMIT 1 BYTE 

SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

SET LINE SPEED FOR 9600 BAUD 

SET CHARACTER LENGTH FOR 10 BITS 
{START TRANSMITTER 
tUAIT TO RECEIVE CHARACTER 

I ( R4 ) -RECEIVED CHARACTER 
I IN LOU BYTE. AND LINE NUMBER AND 
{CHARACTER STATUS IN HIGH BV TE 
:(R5) -EXPECTED CHARACTER IN LOU BYTE 
{AND LINE NUMBER AND CHARACTER 
{STATUS IN HIGH BYTE 

{ARE EXPECTED AND RECEIVED DATA THE SAME 
{CHARACTER LENGTH. DATA 
{OR LINE NUMBER ERROR 



000777 



XC00E-XCWE«2*1 
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SEQ 60 



000013 
004000 
000000 
000005 
000037 
000004 



011040 



10S437 



LINEX-LINEX*! 

BITX-8ITX*BITX 

LENGTX-0 

LEICTC-5 

XCOOE-37 

.R?PT 4 

•NLIST 

DATAR-LINEX*400*100000*XCOOE 

• LIST 

CHARTl \LINEX . XBITX . \LENGTX . \LENGTC . \XCOOE . \OATAR 
.NLIST 

LENGTX-LEN6TX*! 

LENGTC-LENGTC*! 

XC00E*XC00E*2*1 

.LIST 

.ENOR 

0ATAR«LINEX*400* 100000 *XCOOE 

CHARTl VLINEX , \BITX . \LENGTX . \LENGTC . \XCOOE . \OATAR 

sCHARACTER LENGTH TEST 
: TRANSMIT 1 CHARACTER ON LINE 13 
{CHARACTER LENGTH IS 5 BITS 
tEXPECTEO RECEIVED CHARACTER IS 37 
.LINE SPEED IS 9600 BAUD 



011040 



TS \XN.400,2I 



011040 


012767 


000340 


166730 


T55: 


nov 


«340.PS 


011046 


012767 


000400 


004650 




MOV 


♦400.IC0UNT 


011054 


012767 


011166 


004636 




MOV 


*2t. ESCAPE 










.IF NB 


<> 














nov 


•.FREEZl 










.ENDC 






000056 






XN-XN* 


1 




0U062 


012777 


004000 


004566 




nov 


«eiTll.«)HSCR 


011070 


012767 


000037 


004660 




nov 


♦37,TDATA 


011076 


012777 


000013 


004552 




nov 


M3.80HSCR 


011104 


012777 


177777 


004554 




nov 


*-l,80HBC 


011112 


012777 


015756 


004544 




nov 


*TDATA.0DH6A 


011120 


012777 


033500 


004534 




nov 


*33S00.80HLPR 


011126 


052777 


000000 


004526 




BIS 


«0,BOHLPR 


011134 


012777 


004000 


004526 




nov 


«4000.flDHBAR 


011142 


105777 


004510 




1»: 


TSTB 


80HSCR 


011146 


100375 








BPL 


1< 


011150 


017704 


004504 






nov 


8DHNRC.R4 


011154 


012705 


105437 






nov 


♦105437. R5 


011160 


020504 








cnp 


R5.R4 


011162 


001401 








BEQ 


2< 


011164 










HLT 




011164 


104000 








ErtT 




011166 


104400 






2): 


SCOPE 






000001 






LEN6TX 


-LENGTX^l 






000006 






LENGTC 


-LENGTC«1 





I DISABLE ALL INTERRUPTS 
{SET UP FOR 400 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP UITH DATA 



J MASTER CLEAR INTERFACE 

sCHARACTER TO BE TRANSMITTED ■ 37( OCTAL) 

: SELECT LINE 13 

sSET UP TO TRANSMIT 1 BYTE 

iSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

:SET LINE SPEED FOR 9600 BAUD 

iSET CHARACTER LENGTH FOR 5 BITS 

I START TRANSMITTER 

:UAIT TO RECEIVE CHARACTER 

:(R4)-RECEIVED CHARACTER 

;IN LOU BYTE. AND LINE NUMBER AND 

{CHARACTER STATUS IN HIGH BYTE 

;(R5)-EXPECTE0 CHARACTER IN LOU BYTE 

iANO LINE NUMBER AND CHARACTER 

: STATUS IN HIGH BYTE 

{ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
;0R LINE NUMBER ERROR 
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SFQ 61 



011170 



000077 
105477 



XCXE-XCWE*2*1 
DATAR-LINEX*400* 100000 *XCODE 

CHAHTl \LINEX . \BITX . \LENGTX . \LENGTC . \XC0DE . \DATAR 

CHARACTER LENGTH TEST 
TRANSMIT 1 CHARACTER ON LINE 13 
CHARACTER LENGTH IS 6 BITS 
EXPECTED RECEIVED CHARACTER IS 77 
LINE SPEED IS 9600 BAUD 



011170 








TS \XN,400.2» 




011170 


012767 


000340 


166600 


T56: 


MOV 


«340.PS 


011176 


012767 


000400 


004520 




MOV 


«40O,IC0UNT 


011204 


012767 


01V316 


004506 




MOV 


«2I. ESCAPE 










.IF NB 


< > 














MOV 


♦.FREEZl 










.ENOC 








000057 






XN-XN*1 






011212 


012777 


004000 


004436 




MOV 


4BIT11.8DHSCR 


011220 


012767 


000077 


004530 




MOV 


♦77,TDATA 


011226 


012777 


000013 


004422 




MOV 


«13.S0HSCR 


011234 


012777 


177777 


004424 




MOV 


«-1.80HBC 


011242 


012777 


015756 


004414 




MOV 


«TDATA,8DHBA 


011250 


012777 


033500 


004404 




MOV 


#33500, 80HLPR 


011256 


052777 


000001 


004376 




BIS 


91 , 8DHLPR 


011264 


012777 


004000 


004376 




MOV 


«4000,80HBAR 


011272 


105777 


004360 




1»: 


TSTB 


8DHSCR 


011276 


100375 








BPL 


11 


011300 


017704 


004354 






MOV 


S0HNRC.R4 


011304 


012705 


105477 






MOV 


♦1(»477.R5 


011310 


020504 








CMP 


R5.R4 


011312 


001401 








BEQ 


2< 


011314 










HLT 




011314 


104000 








EMT 





; DISABLE ALL INTERRUPTS 
:SET UP FOR 400 ITERATIONS 
jSET UP TO ESCAPE TO NEXT TEST 

J SET UP TO LOOP WITH DATA 



I 3 



011316 



011320 



104400 

000002 
000007 
000177 
105577 



21: 



SCOPE 



:MASTER CLEAR INTERFACE 

J CHARACTER TO BE TRANSMITTED - 77C OCTAL) 

: SELECT LINE 13 

;SET UP TO TRANSMIT 1 BYTE 

;SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

:SET LINE SPEED FOR 9600 BAUD 

;SET CHARACTER LENGTH FOR 6 BITS 

: START TRANSMITTER 

sUAIT TO RECEIVE CHARACTER 

iCR4}-RECElVED CHARACTER 
ilN LOU BYTE. AND LINE NUMBER AND 
I CHARACTER STATUS IN HIGH BYTE 
iCR5}-EXPECTED CHARACTER IN LOU BYTE 
iANO LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

.ARE EXPECTED AND RECEIVED DATA THE SAME 
{CHARACTER LENGTH. DATA 
;0R LINE NUMBER ERROR 



LENGTX-LENGTX^l 
LENGTC-LENGTC*1 
XC0OE*XC0OE*2*l 
OAT AR-LINEX*400« 100000 *XCODE 

CHARTl \LINEX . \BITX . \LENGTX , \LENGTC . \XCO0E , \OAT AR 

{CHARACTER LQIGTH TEST 
s TRANSMIT 1 CHARACTER ON LINE 13 
i CHARACTER LENGTH IS 7 BITS 
{EXPECTED RECEIVED CHARACTER IS 177 
(LINE SPEED IS 9600 BAUD 



011320 
011320 
011326 
011334 



012767 
012767 
012767 



000340 
000400 
011446 



166450 
004370 
004356 



TS \XN,400.2I 
T57: MOV 
MOV 
MOV 
.IF NB <> 



«340,PS 
*400.IC0UNT 
«2 I, ESCAPE 



DISABLE ALL INTERRUPTS 
SET UP FOR 400 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 
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SEO 62 



011342 
011350 
011356 
011364 
011372 
011400 
011406 
011414 
011422 
011426 
011430 



000060 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



004000 
000177 
000013 
177777 
015756 
033500 
000002 
004000 
004230 

004224 



011434 012705 105577 



011440 
011442 
011444 
011444 

011446 



011450 



011450 
011450 
011456 
011464 



011472 
011500 
011506 
011514 
011522 
011530 
011536 
011544 
011552 
011556 
011560 



020504 
001401 

104000 

104400 
000003 
000010 
000377 
105777 



004306 
004400 
004272 
004274 
004264 
004254 
004246 
004246 



012767 
012767 
012767 



000061 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



000340 166:20 
000400 004240 
011576 CU4226 



004000 

000377 
000013 
177777 
015756 
033S00 
000003 
004000 
004100 

004074 



004156 
004250 
004142 
004144 
004134 
004124 
004116 
004116 



.ENOC 
XN-XNU 



MOV #,FREEZ1 



;SET UP TO LOOP MIH DATA 



I 3 



mv «eiT11.8DHSCR 

MOV #177.TDATA 

rrav *13.80HSCR 

MOV *-l,80HBC 

MOV «TDATA.8DHBA 

MOV «33S00.8DHLPR 

BIS *2.8DHLPR 

MOV *4000.80HBAR 

TSTB SDHSCR 

BPL 1* 

MOV 80HNRC.R4 



MOV #105577, R5 



CMP R5,R4 
BEQ 2$ 

HLT 
EMT 



21 : SCOPE 
LENGTX-LEN6TX*1 
LENGTC-LENGTC»1 
XC0DE-XC00E*2»1 
DATAR-LZNEX*400* 100000 *XC00E 

CHARTl \LINEX . \BITX , \LEHGTX . \LENGTC . \XC00E . \OAT AR 

(CHARACTER LENGTH TEST 
(TRANSMIT 1 CHARACTER ON LINE 13 
(CHARACTER LENGTH IS 10 BITS 
(EXPECTED RECEIVED CHARACTER IS 377 
(LINE SPEED IS 9600 BAUD 



MASTER CLEAR INTERFACE 

CHARACTER TO BE TRANSMITTED - 177(0CTAL) 

SELECT LINE 13 

SET UP TO TRANSMIT 1 BYTE 

SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
SET LINE SPEED FOP 9600 BAUD 
SET CHARACTER LENGTH FOR 7 BITS 
START TRANSMITTER 
(WAIT TO RECEIVE CHARACTER 

i(R4)>RECEIVED CHARACTER 
;IN LOU BYTE. AND LINE NUMBER AND 
(CHARACTER STATUS IN HIGH BYTE 
((R5)-EXPECTED CHARACTER IN LOW BYTE 
(AND LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
(OR LINE NUMBER ERROR 



TS \XN.400.2* 



T60: 



.IF NB 

.ENDC 
XN-XNa 



MOV 

nov 

NOV 
<> 

nov 



II: 



HOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BIS 

MOV 

TSTB 

BPL 

NOV 



•340. PS 
MOO.ICOUNT 
•2 1. ESCAPE 

•.FREEZl 



4BIT11.80HSCR 

♦377.TDATA 

#13.80HSCR 

«-l.a)HBC 

•TDATA.80H6A 

•33500. 8DHLPR 

•3.0DHLPR 

•4000.«)HBAR 

KHSCR 

1$ 

SDHNRC.R4 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 400 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



( 3 



(MASTER CLEAR INTERFACE 

(CHARACTER TO BE TRANSMITTED - 377( OCTAL) 

(SELECT LINE 13 

(SET UP TO TRANSMIT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

(SET LINE SPEED FOR 9600 BAUD 

(SET CHARACTER LENGTH FOR 10 BITS 

(START TRANSMITTER 

(UAIT TO RECEIVE CHARACTER 

((R4)-RECEIVED CHARACTER 

(IN LOU BYTE. AND LINE NUMBER AND 
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SEQ 63 



011564 012705 105777 



011570 020504 

011572 001401 
011574 

011574 104000 

011576 104400 
000004 
000011 
000777 
000014 
010000 
000000 
000005 
000037 
000004 



011600 



011600 



106037 



nov 



CUP 
SEQ 

HLT 
EMT 



♦105 777. R5 



RS.R4 
2« 



: CHARACTER STATUS IN HIGH BYTE 
:(R5)' rXPECTEO CHARACTER IN LOU BYTE 
:ANO LINE NUMBER AND CHARACTER 
: STATUS IN HIGH BYTE 

J ARE EXPECTED AND RECEIVED DATA THE SAME 
i CHARACTER LENGTH. DATA 



sOR LINE NUMBER ERROR 

2i: SCOPE 

LENGTX-LENGTX*! 

LENGTC-LENGTC*! 

XC0O£-XC0OE*2*l 

LINEX-LINEX*! 

BITX-BITX»BITX 

LEN6TX-0 

LEN6TC-5 

XCWE-37 

.REPT 4 

.NLIST 

DATAR-LINEX*400*100000*XC0DE 
.LIST 

CHARTl \LINEX , \BITX . \LENGTX . \LENGTC . \XCOOE . \0ATAR 
.NLIST 

LEN6TX-LENGTX*1 

LEN6TC-LENGTC*1 

XC00E-XC00E*2«1 

.LIST 

.ENOR 

DATAR-LINEX*400*100000«XC0DE 

CHARTl NLINEX . \BITX . \LEN6TX . \LEN6TC . \XC00E . \DATAR 

{CHARACTER LENGTH TEST 
I TRANSMIT 1 CHARACTER ON LINE 14 
{CHARACTER LENGTH IS 5 BITS 
{EXPECTED RECEIVED CHARACTER IS 37 
(LINE SPEED IS 9600 BAUD 



TS \XN.400.2» 



011600 


012767 


000340 


166170 


T61: 


nov 


•340, PS 


011606 


012767 


000400 


004110 




nov 


•400.IC0UNT 


011614 


012767 


011726 


004076 


.IF NB 


nov 

<> 


*2t. ESCAPE 












nov 


•.FREEZl 










.ENOC 






000062 






XN-XN*1 






011622 


012777 


004000 


004026 




nov 


4BIT11.80HSCR 


011630 


012767 


000037 


004120 




nov 


•37.T0ATA 


011636 


012777 


000014 


004012 




nov 


•14.80HSCR 


011644 


012777 


177777 


004014 




nov 


•-l.M>HBC 


011652 


012777 


015756 


004004 




nov 


♦TDATA.aOHBA 


011660 


012777 


033500 


003774 




nov 


•33500. SOM.PR 


011666 


052777 


000000 


003766 




BIS 


•0.80HLPR 


011674 


012777 


010000 


003766 




nov 


•10000. 8DHBAR 


011702 


105777 


003750 




1»: 


TSTB 


OHSCR 


011706 


100375 








BPL 


11 


011710 


017704 


003744 






nov 


a)HNRC.R4 



{9ISABLE ALL INTERRUPTS 
{SET UP FOR 400 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



i 3 



(MASTER CLEAR INTERFACE 

(CHARACTER TO BE TRANSHITTED • 37(0CTAL) 

I SELECT LINE 14 

(SET UP TO TRANSmT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSHITTEO 

(SET LINE SPEED FOR 9600 BAUD 

(SET CHARACTER LENGTH FOR 5 BITS 

(START TRANSMITTER 

(WAIT TO RECEIVE CHARACTER 

((R4)-RECEIVED CHARACTER 



CZPHE-CO 
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SCQ 64 



011714 012705 106037 



011720 020504 

011722 001401 
011724 

011724 104000 

011726 104400 
000001 
000006 
000077 
106077 

011730 



nov 



CMP 
BEQ 
HLT 
EMT 



•106037. R5 



R5.R4 
2( 



21 : SCOPE 
LENGTX-LENGTX*1 
LEN6TC-LENGTC*1 
XC0OE-XC0OE*2*l 
OATAR-LINEX*400«100000*XCOOE 

CHARTl \LINEX , XBITX . \LEN6TX . \LEN6TC . \XC0OE . \0 ATAR 

{CHARACTER LENGTH TEST 
(TRANSMIT 1 CHARACTER ON LINE 14 
{CHARACTER LENGTH IS 6 BITS 
{EXPECTED RECEIVED CHARACTER IS 77 
I LINE SPEED IS 9600 BAUD 



iIN LOU BYTE. AND LINE NUMBER AND 
{CHARACTER STATUS IN HIGH BYTE 
:(R5}-EXPECTE0 CHARACTER IN LOU BYTE 
I AND LINE NUMBER AND CHARACTER 
{STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAME 
{CHARACTER LENGTH. DATA 
(OR LINE NUMBER ERROR 



011750 








TS \XN.400.2I 




011730 


012767 


000340 


166040 


T62: 


MOV 


•340. PS 


011736 


012767 


000400 


003760 




MOV 


MOO.ICOUNT 


011744 


012767 


012056 


003746 




MOV 


#21, ESCAPE 










.IF NB 


<> 














MOV 


#.FREEZ1 










.ENDC 








000063 






XN-XN*1 






011752 


012777 


004000 


003676 




MOV 


48IT11.80HSCR 


011760 


012767 


000077 


003770 




MOV 


♦77,TDATA 


011766 


012777 


000014 


003662 




MOV 


•14.8DHSCR 


011774 


012777 


177777 


003664 




MOV 


#-l.BONBC 


012002 


012777 


015756 


003654 




MOV 


•TDATA.80HBA 


012010 


012777 


033500 


003644 




MOV 


•SSSOO.flOHLPR 


012016 


052777 


000001 


003636 




BIS 


•l.BOHLPR 


012024 


012777 


010000 


003636 




MOV 


•10000. BOHBAR 


012032 


105777 


003620 




11: 


TSTB 


BOHSCft 


012036 


100375 








BPL 


1* 


012040 


017704 


003614 






MOV 


80HNRC.R4 


012044 


012705 


106077 






MOV 


•106077. R5 


012050 


020504 








CUP 


RS.R4 


012052 


001401 








BEQ 


2» 


012054 










HLT 




012054 


104000 








on 




012056 


104400 






2»: 


SCOPE 






000002 






LEN6TX- 


LEN6TX*1 






000007 






LENBTC-LENGTC^l 






000177 






XCaOE-XC0DE*2a 






106177 






DATAR-LINEX*400« 100000 *XCODE 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 400 ITEf<ATI0NS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



( 3 



(MASTER CLEAR INTERFACE 

(CHARACTER TO BE TRANSMITTED - 77(0CTAL) 

(SELECT LINE 14 

(SET UP TO TRANSMIT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

(SET LINE SPEED FOR 9600 BAUD 

(SET CHARACTER LENGTH FOR 6 BITS 

(START TRANSMITTER 

(WAIT TO RECEIVE CHARACTER 

((R4)-RECEIVE0 CHARACTER 
(IN LOU BYTE. AND LINE NUMBER AND 
(CHARACTER STATUS IN HIGH BYTE 
((R5)-EXPECTED CHARACTER IN LOW BYTE 
(AND LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
(OR LINE NUMBER ERROR 



c20He-co 
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012060 



CHARTl \LINEX . \BITX . \LENGTX . \LEN6TC , \XCCOE . \OATAR 



(CHARACTER LENGTH TEST 
; TRANSMIT 1 CHARACTER ON LINE 14 
(CHARACTER LENGTH IS 7 BITS 
{EXPECTED RECEIVED CHARACTER IS 177 
I LINE SPEED IS 9600 BAUD 



012060 








TS \XN. 400.21 




012060 


012767 


000340 


165710 


T63: 


HOV 


*340.PS 


012066 


012767 


000400 


003630 




HOV 


MOO.ICOUNT 


012074 


012767 


012206 


003616 




HOV 


•21. ESCAPE 










.IF NB 


<> 














HOV 


•.FREEZl 










.ENDC 








000064 






XN-XN»1 






012102 


012777 


004000 


003546 




HOV 


•BIT11.0OHSCR 


012110 


012767 


000177 


003640 




HOV 


#177.T0ATA 


012116 


012777 


000014 


003532 




HOV 


•14.a>HSCR 


012124 


012777 


177777 


003534 




HOV 


•-1.S0HBC 


012132 


012777 


015756 


003524 




HOV 


•TDATA.SOHBA 


012140 


012777 


033500 


003514 




HOV 


•33500. 0DHLPR 


012146 


052777 


000002 


003506 




BIS 


•2.S0M.PR 


0121S4 


012777 


010000 


00S506 




HOV 


•lOOOO.SOHBAR 


012162 


105777 


003470 




1<: 


TSTB 


80HSCR 


012166 


100375 








BPL 


11 


012170 


017704 


003464 






NOV 


0HNRC.R4 


012174 


012705 


106177 






HOV 


•106177. R5 


012200 


020504 








CHP 


R5.R4 


012202 


001401 








BEQ 


21 


012204 










HLT 




012204 


104000 








ENT 





012206 



012210 



104400 
OOOOOS 
000010 
000S77 
106377 



21: 



SCOPE 



{DISABLE ALL INTERRUPTS 

I SET UP FOR 400 ITERATIONS 

I SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP yiTH DATA 



I 3 



iHASTER CLEAR INTERFACE 

{CHARACTER TO BE TRANSHITTEO - 177(0CTAL) 

(SELECT LINE 14 

(SET UP TO TRANSHIT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSHITTED 

(SET LINE SPEED FOR 9600 BAUD 

I SET CHARACTER LENGTH FOR 7 BITS 

(START TRANSmTTER 

(WAIT TO RECEIVE CHARACTER 

((R4)-R£CEIVED CHARACTER 
ilN LOU BYTE. AND LINE NUMBER AND 
(CHARACTER STATUS IN HIGH BYTE 
l(R5)-EXPECTE0 CHARACTER IN LOU BYTE 
(AND LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAHE 
(CHARACTER LENGTH. DATA 
tOR LINE NUHBER ERROR 



LENGTX-LENGTX^l 
LENGTC-LENCTC^l 
XCa0E-XCQ0E*2«l 
DATAR-LINEX*400«100000«XCQ0E 

CHMTl \LXNEX . \UTX . \LENBTX , \LEN6TC . NXCGOE . \OATAR 

(CHARACTER LENGTH TEST 
(TRANSHIT 1 CHARACTER ON LINE 14 
(CHARACTER LENGTH 1$ 10 BITS 
(EXPECTED RECEIVED CHARACTER IS 377 
iLINE SPEED IS 9600 BAUD 



012210 

012210 012767 000340 165560 

012216 012767 000400 003500 

012224 012767 012336 003466 



TS \XN.400.2» 
T64: HOV 
NOV 
HOV 
.IF NB <> 
NOV 

.ENDC 



•340. /'S 
•400.ICOUNT 
«e<. ESCAPE 

•.FREEZl 



(DISABLE Aa INTERRUPTS 

(SET UP FOR 400 ITERATIONS 

I SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



C/OHC CO 
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0122S2 
012240 
012246 
012254 
012262 
012270 
012276 
012S04 
012S12 
012316 
012920 



000065 
012777 
012/67 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100S75 
017704 



012S40 



106437 



004000 
000377 
000014 
177777 
015756 
033500 
000003 
010000 
003340 

003334 



003416 
003510 
003402 
003404 
003374 
003364 
003356 
003356 



012324 012705 106377 



012330 020504 

012332 001401 
0123S4 

012334 104000 

012336 104400 
000004 
000011 
000777 
000015 
020000 
000000 
000005 
000037 
000004 



012340 

012340 012767 000340 165430 

012346 012767 000400 003350 

0123S4 012767 012466 003336 



1>: 



nov 
nov 
nov 

HOV 

nov 

BIS 

iw 

TSTB 

wn. 

NOV 



HOV 



BEQ 

MLT 
EMT 



«0ITll.flOHSCA 

•377.T0ATA 

•14.aMSC8 

• i.aomc 

•TDAT^.aOHBA 

•33500.MMLPR 

•3.80HLPR 

•lOOOO.aOHBAR 

ODHSCfl 

II 

aOIMIiC.R4 



•106377. RS 



RS.R4 
21 



2% : SCOPE 
LENGTX>LEf46TX*l 
LENCrC-LENGTC*! 
XC00E-XC00E*2*1 
LINEX-LINEX*1 
BZTX>BITX*BITX 
LENGTX-0 
LENGTC-5 
XCODE-37 
.REPT 4 
.NLIST 

DATAR-LINEX*400* 100000 *XCQDE 
.LIST 

CHARTl \LINEX . SfilTX . \LEN6TX . \LENGTC . NXCOOE. \OATAR 
.NLIST 

LENGTX-LENGTX*1 

LENGTC>LENGTC*1 

XCWE-XC00E*2*1 

.LIST 

.ENOR 

OATAR-LINEX*400*100000*XCOOE 

CHARTl \LINEX , \8ITX . \LENGTX . \LEN6TC . \XCOOE , \DAT AR 

s CHARACTER LENGTH TEST 

t TRANSMIT 1 CHARACTER ON LINE 15 

(CHARACTER LENGTH IS 5 BITS 

i EXPECTED RECEIVED CHARACTER IS 37 

iLINE SPEED IS 9600 BAUD 



iHASTER aEAR INTERFACE 

(CHARACTER TO BE TRANSNITTEO - S77(0CTm.) 

i SELECT LINE 14 

I SET UP TO TRANSMIT 1 BYTE 

iSET UP ADDRESS OF CHARACTER TO BE TRANSHITTEO 

(SET LINE SPEED FOR 9600 BAUD 

iSET CHARACTER LENGTH FOR 10 BITS 

I START TRANSMITTER 

(WAIT TO RECEIVE CHARACTER 

i(R4)-RECEIVE0 CHARACTER 

I IN LOU BYTE. AND LINE NUMBER AND 

(CHARACTER STATUS IN HIGH BYTE 

J (R5)- EXPECTED CHARACTER IN LOW BYTE 

lAND LINE NUMBER AND CHARACTER 

(STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
(OR LINE NUMBER ERROR 



TS \XN,400.2» 
T65: MOV 
MOV 
MOV 
.IF NB <> 
MOV 



«340,PS 
♦400,IC0UNT 
♦2 ». ESCAPE 

4.FREEZ1 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 400 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



r ZONE -co 
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SEQ 67 



.ENDC 





000066 






XN"XN*l 






012362 


012777 


AA A AAA 

004000 


003266 




MOV 


4BIT11.8DHSCR 


012370 


012767 


000037 


003360 




MOV 


437,T0ATA 


012376 


012777 


000015 


0032E2 




MOV 


«15.iOHSCR 


012404 


012777 


mm 


003254 




MOV 


4-l,80HBC 


012412 


012777 


015756 


003244 




MOV 


4TDATA,SDHBA 


012420 


012777 


033500 


003234 




MOV 


«33S00.80HLPR 


012426 


052777 


AA AA 

000000 


003226 




BIS 


40,8DHLPR 


012434 


012777 


020000 


003226 




MOV 


420000. 80HBAR 


012442 


105777 


003210 




11: 


TSTB 


80HSCR 


012446 


100375 








BPL 


1) 


012450 


017704 


003204 






MOV 


80HNRC.R4 


0124S4 


A« t^AV 

012705 


4 AX ^ 

106437 






MOV 


•106437, R5 


012460 


020504 








CMP 


R5.R4 


012462 


001401 








BEQ 




012464 










HLT 




012464 


104000 








EHT 





012466 



012470 



104400 

000001 
000006 
000077 
106477 



2$: 



SCOPE 



s MASTER CLEAR INTERFACE 

J CHARACTER TO BE TRANSMITTED - 37C OCTAL) 

(SELECT LINE 15 

J SET UP TO TRANSMIT 1 BYTE 

;SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

sSET LINE SPEED FOR 9600 BAUD 

(SET CHARACTER LENGTH FOR 5 BITS 

{START TRANSMITTER 

jUAIT TO RECEIVE CHARACTER 

i(R4)-RECEIVED CHARACTER 

ilN LOU BYTE. AND LINE NUMBER AND 

J CHARACTER STATUS IN HIGH BYTE 

i(R5)-EXPECTED CHARACTER IN LOW BYTE 

I AND LINE NUMBER AND CHARACTER 

: STATUS IN HIGH BYTE 

iARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
iOR LINE NUMBER ERROR 



LEN6TX-LEN6TX*! 
LEN6TC-LENGTC*1 
XCG0E-XC00E*2*1 
DATAR-LINEX*400*100000>XCOOE 

CHARTl \LINEX , \BITX . \LENGTX . \LENGTC . \XCODE . \0ATAR 

(CHARACTER LENGTH TEST 
(TRANSMIT 1 CHARACTER ON LINE 15 
(CHARACTER LENGTH IS 6 BITS 
(EXPECTED RECEIVED CHARACTER IS 77 
(LINE SPEED IS 9600 BAUD 



012470 



TS \XN.400.2« 



012470 


012767 


000340 


135300 


T66: 


MOV 


•340. PS 


012476 


012767 


000400 


003220 




MOV 


44OO.IC0UNT 


012504 


012767 


012616 


003206 




MOV 


•21. ESCAPE 










.IF NB 


< > 














MOV 


•.FREEZl 










.ENOC 








000067 






XN-XN*1 






012512 


012777 


004000 


003136 




MOV 


•BIT11.80HSCR 


012520 


012767 


000077 


003230 




MOV 


»77,TDATA 


012526 


012777 


000015 


003122 




MOV 


•15.80HSCR 


012534 


012777 


177777 


003124 




MOV 


•-1.80HBC 


012542 


012777 


015756 


003114 




MOV 


•T0ATA.8OHBA 


012550 


012777 


033500 


003104 




MOV 


•33500. 8DHLPR 


012556 


052777 


000001 


003076 




BIS 


•1.80HLPR 


012564 


012777 


020000 


003076 




MOV 


•20000. 80HBAR 


012572 


105777 


003060 




1*: 


TSTB 


80HSCR 


012576 


100375 








BPL 


1) 


012600 


017704 


003054 






MOV 


80HNRC.R4 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 400 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



(MASTER CLEAR INTERFACE 

(CHARACTER TO BE TRANSMITTED - 77(0CTAL) 

(SELECT LINE 15 

(SET UP TO TRANSMIT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

(SET LINE SPEED FOR 9600 BAUD 

(SET CHARACTER LENGTH FOR 6 BITS 

(START TRANSMITTER 

(WAIT TO RECEIVE CHARACTER 

((R4)-RECEIVE0 CHARACTER 

(IN LOU BYTE. AND LINE NUMBER AND 

(CHARACTER STATUS IN HIGH BYTE 



CZOHE-CO 
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SCO 68 



012604 012705 106477 



012610 
012612 
012614 
012614 

012616 



012620 



020504 
001401 

104000 

104400 

000002 
000007 
000177 
106577 



MOV 



CMP 
BEQ 
HLT 
EMT 



♦10^477. R5 



R5.R4 
2$ 



i(R5} -EXPECTED CHARACTER IN LOU BYTE 
sANO LINE NUMBER AND CHARACTER 
: STATUS IN HIGH BYTE 

:ARE EXPECTED AND RECEIVED DATA THE SAME 
{CHARACTER LENGTH. DATA 



:0R LINE NUMBER ERROR 

2* : SCOPE 
LEN6TX-LENGTX*1 
!.ENGTC-LENGTC*1 
XC00E-XC00E*2*1 
DATAR«LINEX*400* 100000*XCODE 

CHARTl \LINEX , \BITX . \LENGTX , \LEN6TC . \XCODE . \DAT AR 

{CHARACTER LENGTH TEST 
{TRANSMIT 1 CHARACTER ON LINE 15 
{CHARACTER LENGTH IS 7 BITS 
{EXPECTED RECEIVED CHARACTER IS 177 
{LINE SPEED IS 9600 BAUD 

















UXc (Or 












wXc ■ w f 






MOV 


MOO TrnuNT 


012634 


012767 


012746 


003056 


MOV 


*2*. ESC APE 










.IF NB <> 












HOW 


• FRFE71 
















W\A/ f V 






Al» Al^~ X 






01 9777 

Vic f f 1 


w^vw 


003006 


MOV 


wox 1 XX t vunoian 


012650 


012767 


000177 


003100 


MOV 


#177.TDATA 


012656 


012777 


000015 


002772 


MOV 


*15.80HSCR 


012664 


012777 


mm 


002774 


MOV 


*-1.80HBC 


012672 


012777 


015756 


002764 


MOV 


*TDATA,B0H6A 


012700 


012777 


033500 


002754 


MOV 


*33500.aOHLPR 


012706 


052777 


000002 


002746 


BIS 


*2,0OHLPR 


012714 


012777 


020000 


002746 


MOV 


#20000. 80HBAR 


012722 


105777 


002730 




1» : TSTB 


80HSCR 


012726 


100375 






BPL 


It 


012730 


017704 


002724 




MOV 


M)HNRC.R4 


012734 


012705 


106577 




MOV 


#106577, R5 


012740 


020504 






CMP 


R5.R4 


012742 


001401 






BEQ 


21 


012744 








HLT 




012744 


104000 






EMT 




012746 


104400 






21 : SCOPE 






000003 






LENGTX-LENGTX*! 






000010 






LENGTC-LENGTC'l 






000377 






XC0DE-XCQ0E*2*1 






106777 






OATAR-LINEX*400 


»100000*XCOOE 



{DISABLE ALL INTERRUPTS 
{SET UP FOR 400 ITERATIONS 
{SET UP TO ESCAPE TO NEXT TEST 

{SET UP TO LOOP WITH DATA 



{MASTER CLEAR INTERFACE 

{CHARACTER TO BE TRANSMITTED - 177(0CTAL) 

{SELECT LINE 15 

sSET UP TO TRANSMIT 1 BYTE 

{SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

{SET LINE SPEED FOR 9600 BAUD 

{SET CHARACTER LENGTH FOR 7 BITS 

{START TRANSMTTTER 

{WAIT TO RECEIVE CHARACTER 

{(R4)«RECEIVED CHARACTER 
{IN LOU BYTE. AND LINE NUMBER AND 
{CHARACTER STATUS IN HIGH BYTE 
:(R5)-EXPECTED CHARACTER IN LOU BYTE 
{AND LINE NUMBER AND CHARACTER 
{STATUS IN HIGH BYTE 

{ARE EXPECTED AND RECEIVED DATA THE SAME 
{CHARACTER LENGTH. DATA 
{OR LINE NUMBER ERROR 



012750 



CHARTl \LINEX . \BITX . NLENGTX . \LENGTC . NXCODE . \OATAR 



CZDHC-CO 
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SEQ 69 



012750 

012750 012767 

012756 012767 

012764 012767 



012772 
013000 
013006 
013014 
013022 
013030 
013036 
013044 
013052 
013056 
013060 



000071 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



013070 
013072 
013074 
013074 

013076 



020504 
001401 

104000 

104400 
000004 
000011 
000777 
000016 
040000 
000000 
000005 
000037 
000004 



000340 
000400 

013076 



004000 
000377 
000015 
177777 
015756 
033500 
000003 
020000 
002600 

002574 



165020 
002740 
002726 



002656 
002750 
002642 
002644 
002634 
002624 
002616 
002616 



013064 012705 106777 



i CHARACTER LENGTH TEST 
sTRANSHIT 1 CHARACTER ON LINE IS 
(CHARACTER LENGTH IS 10 BITS 
(EXPECTED RECEIVED CHARACTER IS 377 
sLINE SPEED IS 9600 BAUD 



TS \XN. 400.2* 
T70: MOV 
HOV 
NOV 
.IF NB <> 
HOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 

nov 
nov 
nov 

BIS 
NOV 
TSTB 
BPL 
HOV 



nov 



II: 



CMP 
BEQ 

HLT 
EMT 

SCOPE 



•340. PS 
«400.IC0UNT 
•2*. ESC APE 

♦.FREEZl 



«6IT11.SDHSCR 

♦S77.TDATA 

*15,80HSCR 

«-1.80HBC 

«TDATA,S0HBA 

♦33500, 8DHLPR 

«3.8DHLPR 

«20000.aDHBAR 

8DHSCR 

1* 

80HNRC.R4 



♦106777. R5 



R5.R4 
2( 



013100 



107037 



21: 

LENGTX-LENGTX^l 
LENGTC-LENGTC*1 
XCWE-XC00E*2*1 
LINEX-LINEX*1 
BITX«BITX*BITX 
LENGTX-0 
LENGTC-5 
XCOOE-37 
.REPT 4 
.NLIST 

DATAR-LINEX*400* 100000 tXCODE 
.LIST 

CHARTl \LINEX . \BITX . \LENGTX . \LENGTC . \XC0DE . \DATAR 
•NLIST 

LENGTX-LEN6TX*1 

LENGTC-LENGTC*! 

XC00E-XC00E*2*1 

.LIST 

.ENDR 

DATAR-LINEX*400^100000tXCOOE 

CHARTl \LINEX . \BITX . \LENGTX , \LENGTC . \XC0DE . \D AT AR 



DISABLE ALL INTERRUPTS 
SET UP FOR 400 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP UITH DATA 



MASTER CLEAR INTERFACE 

CHARACTER TO BE TRANSMITTED - 377C0CTAL) 

SELECT LINE 15 

SET UP TO TRANSMIT I BYTE 

SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
SET LINE SPEED FOR 9600 BAUD 
SET CHARACTER LENGTH FOR 10 BITS 
START TRANSMITTER 
sUAIT TO RECEIVE CHARACTER 

(RA)-RECEIVED CHARACTER 
IN LOW BYTE. AND LINE NUMBER AND 
CHARACTER STATUS IN HIGH BYTE 
(R5)-EXPECTE0 CHARACTER IN LOU BYTE 
AND LINE NUMBER AND CHARACTER 
STATUS IN HIGH BYTE 

ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH, DATA 
(OR LINE NUMBER ERROR 
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SEQ 70 



; CHARACTER LENGTH TEST 
TRANSMIT 1 CHARACTER ON LINE 16 
CHARACTER LENGTH IS 5 BITS 
EXPECTED RECEIVED CHARACTER IS 37 
LINE SPEED IS 9600 BAUD 



013100 

013100 012767 

013106 012767 

013114 012767 



013122 
013130 
013136 
013144 
013152 
013160 
013166 
013174 
013202 
013206 
013210 



000072 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



013220 
013222 
013224 
013224 

013226 



013230 



020504 
001401 

104000 

104400 

000001 
000006 
000077 
107077 



000340 
000400 
013226 



004000 
000037 
000016 
177777 
015756 
033500 
000000 
040000 
002450 

002444 



164670 
002610 
002576 



002526 
002620 
002512 
002514 
002504 
002474 
002466 
002466 



013214 012705 107037 



TS \XN.400.2$ 
T71: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN-XN*1 

NOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
MOV 
II : TSTB 
BPL 
MOV 



MOV 



CMP 
BEQ 
HLT 
EMT 



«340,PS 
MOO.ICOUNT 
«2 I, ESCAPE 

«,FREE21 



«BIT11,8DHSCR 

♦37,T0ATA 

•16.80HSCR 

*-l.flOMBC 

*TDATA,80HBA 

«33500.8DHLPR 

«O.S0HLPR 

MOOOO.SDHBAR 

80HSCR 

1* 

80HNRC.R4 



#107037, R5 



RS.R4 
21 



21 : SCOPE 
LENGTX-LEN6TX*! 
LEN6TC-LENGTC*! 
XC00E-XC00E*2«1 
0ATAR-LINEX*400*100000«XC00E 

CHARTl \LINEX . \BITX . \LENGTX . \LENGTC . \XC0DE . \DAT AR 

CHARACTER LENGTH TEST 
TRANSMIT 1 CHARACTER ON LINE 16 
CHARACTER LENGTH IS 6 BITS 
EXPECTED RECEIVED CHARACTER IS 77 
LINE SPEED IS 9600 BAUD 



{DISABLE ALL INTERRUPTS 
iSET UP FOR 400 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

I SET UP TO LOOP UITH DATA 



sMASTER CLEAR INTERFACE 

{CHARACTER TO BE TRANSMITTED - 37( OCTAL) 

{SELECT LINE 16 

{SET UP TO TRANSMIT 1 BYTE 

{SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

sSET LINE SPEED FOR %00 BAUD 

{SET CHARACTER LENGTH FOR 5 BITS 

{START TRANSMITTER 

{UAIT TO RECEIVE CHARACTER 

(R4)-RECEIVED CHARACTER 
IN LOU BYTE. AND LINE NUMBER AND 
CHARACTER STATUS IN HIGH BYTE 
CR5)-EXPECTE0 CHARACTER IN LOW BYTE 
AND LINE NUMBER AND CHARACTER 
STATUS IN HIGH BYTE 

ARE EXPECTED AND RECEIVED DATA THE SAME 
{CHARACTER LENGTH. DATA 
{OR LINE NUMBER ERROR 



013230 

013230 012767 000340 

013236 012767 000400 

013244 012767 013356 



000073 



164540 
002460 
002446 



TS \XN.400.2I 
T72: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN»XN«1 



«340.PS 
MOO.ICOUNT 
«2I. ESCAPE 

♦.FREEZl 



{DISABLE ALL INTERRUPTS 
{SET UP FOR 400 ITERATIONS 
{SET UP TO ESCAPE TO NEXT TEST 

{SET UP TO LOOP UITH DATA 



( 3 
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SEQ 71 



013252 
013260 
013266 
013274 
013302 
013310 
013316 
013324 
013332 
013336 
013340 



012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



004000 
000077 
000016 
177777 
015756 
03350C 
000001 
040000 
002320 

002314 



013344 012705 107077 



01 3350 
013352 
013354 
013354 

013356 



013360 



013360 
013360 
013366 
013374 



020504 
001401 

104000 

104400 
000002 
000007 
000177 
107177 



012767 
012767 
012767 



002376 
002470 
002362 
002364 
002354 
002344 
002336 
002336 



1): 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BIS 

MOV 

TSTB 

BPL 

MOV 



MOV 



CMP 
BEQ 
HLT 
EMT 

SCOPE 



MIT11.80HSCR 

#77.TDATA 

*16.80HSCR 

«-l,80HBC 

«T0ATA.90HBA 

«33500.8DHLPR 

«1.S0HLPR 

MOOOO.SDHBAR 

80HSCR 

II 

8DHNRC.R4 



♦107077, R5 



R5.R4 
2« 



21: 

LENGTX-LENGTXtl 
LENGTC-LENGTC*! 
XCXE-XC0DE*2tl 
0ATAR-LINEX*4O0* lOOOOOtXCODE 

CHARTl \LINEX , \BITX , \LENGTX . \LEN6TC , \XC0OE . \DAT AR 

{CHARACTER LENGTH TEST 
{TRANSMIT 1 CHARACTER ON LINE 16 
(CHARACTER LENGTH IS 7 BITS 
{EXPECTED RECEIVED CHARACTER IS 177 
(LINE SPEED IS 9600 BAUD 



jIASTER CLEAR INTERFACE 

;CHARACTER TO BE TRANSMITTED - 77(0CTAL) 

{SELECT LINE 16 

sSET UP TO TRANSMIT 1 BYTE 

(SET UP ADDRESS Of CHARACTER TO BE TRANSMITTED 

{SET LINE SPEED FOR 9600 BAUD 

{SET CHARACTER LENGTH FOR 6 BITS 

{START TRANSMITTER 

{WAIT TO RECEIVE CHARACTER 

{(R4}>RECEIVED CHARACTER 
(IN LOU BYTE. AND LINE NUMBER AND 
{CHARACTER STATUS IN HIGH BYTE 
{(R5)-EXPECTED CHARACTER IN LOU BYTE 
I AND LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH, DATA 
(OR LINE NUMBER ERROR 



000340 164410 
000400 002330 
013506 002316 



TS \XN.400.2I 
T73: MOV 
HOV 

nov 

.IF NB <> 
HOV 

.ENOC 



*340,PS 
MOO.ICOUNT 
«2I. ESCAPE 

•.FREEZl 





000074 






XN-XN*1 






013402 


012777 


004000 


002246 




HOV 


461111. 80HSCR 


013410 


012767 


000177 


002340 




HOV 


#177.T0ATA 


013416 


012777 


000016 


002232 




HOV 


#16,M)HSCR 


013424 


012777 


177777 


002234 




HOV 


•-1.S0HBC 


013432 


012777 


015756 


002224 




HOV 


«TOATA,0OHBA 


013440 


012777 


033500 


002214 




HOV 


«33500.80HLPR 


013446 


052777 


000002 


002206 




BIS 


•2,80HLPR 


013454 


012777 


040000 


002206 




HOV 


♦40000. aOHBAR 


013462 


105777 


002170 




1$: 


TSTB 


80HSCR 


013466 


100375 








BPL 


11 


015470 


017704 


002164 






HOV 


80HNRC.R4 


013474 


012705 


107177 






HOV 


♦107177. R5 



{DISABLE ALL INTERRUPTS 
{SET UP FOR 400 ITERATIONS 
{SET UP TO ESCAPE TO NEXT TEST 

{SET UP TO LOOP WITH DATA 



{MASTER CLEAR INTERFACE 

(CHARACTER TO BE TRANSMITTED - 177(0CTAL} 

{SELECT LINE 16 

(SET UP TO TRANSMIT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

(SET LINE SPEED FOR 9600 BAUD 

(SET CHARACTER LENGTH FOR 7 BITS 

(START TRANSMITTER 

(UAIT TO RECEIVE CHARACTER 

i(R4)-RECEIVE0 CHARACTER 
{IN LOU BYTE, AND LINE NUMBER AND 
(CHARACTER STATUS IN HIGH BYTE 
{(R5)-EXPECTED CHARACTER IN LOU BYTE 
{AND LINE NUMBER AND CHARACTER 
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SEQ 72 



013500 
013502 
013504 
013504 

013506 



013510 



020504 
001401 

104000 

104400 

000003 
000010 
000377 
107377 



CMP 
BEQ 
HLT 
EMT 



R5.R4 
21 



J STATUS IN HIGH BYTE 

8 ARE EXPECTED AND RECEIVED DATA THE SAME 
s CHARACTER LENGTH. DATA 



sOR LINE NUMBER ERROR 

21: SCOPE 
LENGTX-LENGTX*1 
LENGTC-LEN6TC*1 
XC0DE-XC00E*24l 
DATAR-LINEX*400* 100000 * XCODE 

CHARTl \LINEX . \BITX , \LENGTX . \LENGTC . \XCOOE . \DAT AR 

(CHARACTER LENGTH TEST 
(TRANSMIT 1 CHARACTER ON LINE 16 
(CHARACTER LENGTH IS 10 BITS 
(EXPECTED RECEIVED CHARACTER IS 377 
(LINE SPEED IS 9600 BAUD 



013510 








TS \XN,400.2I 




013510 


012767 


000340 


164260 


T74: MOV 


*340.PS 


013516 


012767 


000400 


002200 


MOV 


MOO.ICOUNT 


013524 


012767 


013636 


002166 


MOV 


*2I. ESCAPE 










•IF NB <> 












HOV 


♦.FREEZl 










.ENDC 






000075 






XN"XN*1 




013532 


012777 


004000 


002116 


MOV 


«6IT11,8DHSCR 


013540 


012767 


000377 


002210 


MOV 


#377,TDATA 


013546 


012777 


000016 


002102 


MOV 


M6.00HSCR 


013554 


012777 


177777 


002104 


MOV 


#-l,60HBC 


013562 


012777 


015756 


002074 


MOV 


^TOATA.SDHBA 


013570 


012777 


033500 


002064 


MOV 


#33500 . 80HLPR 


013576 


052777 


000003 


002056 


BIS 


tfS.OOHLPR 


A4 

013604 


012777 


040000 


002056 


MOV 


#40000 . SDHBAR 


013612 


105777 


002040 




11: TSTB 


0OHSCR 


013616 


100375 






BPL 


11 


013620 


017704 


002034 




MOV 


S0HNRC,R4 


013624 


012705 


107377 




MOV 


#107377, R5 


013630 


020504 






CMP 


R5.R4 


013632 


001401 






BEQ 


2« 


013634 








HLT 




013634 


104000 






EMT 




013636 


104400 






21 : SCOPE 






000004 






LEN6TX-LENGTX*1 






000011 






LEN6TC-LENGTC*1 






000777 






XCODE- XC00E*2*1 






000017 






LINEX-LirCX*l 






100000 






BITX-BITX*BITX 






000000 






LEN6TX-0 






000005 






LENGTC-5 






000037 






XCODE-37 





(DISABLE ALL INTERRUPTS 
(SET UP FOR 400 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



( 3 



MASTER CLEAR INTERFACE 

CHARACTER TO BE TRANSMITTED • 377(0CTAL) 

SELECT LINE 16 

SET UP TO TRANSMIT 1 BYTE 

(SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

(SET LINE SPEED FOR 9600 BAUD 

(SET CHARACTER LENGTH FOR 10 BITS 

(START TRANSMITTER 

(UAIT TO RECEIVE CHARACTER 

( ( R4 )-RECEIVED CHARACTER 
(IN LOU BYTE. AND LINE NUMBER AND 
(CHARACTER STATUS IN HIGH BYTE 
i(R5)-EXPECTED CHARACTER IN LOU BYTE 
(AND LINE NUMBER AND CHARACTER 
(STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH. DATA 
(OR LINE NUMBER ERROR 
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SEQ 73 



000004 



013640 



013640 
013640 
013646 
013654 



013662 
013670 
013676 
013704 
013712 
013720 
013726 
013734 
013742 
013746 
013750 



107437 



012767 
012767 
012767 



000076 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



013760 
013762 
013764 
013764 

013766 



013770 



020504 
001401 

104000 

104400 
000001 
000006 
000077 
107477 



000340 
000400 
013766 



004000 
000037 
000017 
177777 
015756 
033500 
000000 
100000 
001710 

001704 



164130 

002050 
002036 



001766 
002060 
001752 
001754 
001744 
001734 
001726 
001726 



013754 012705 107437 



.REPT 4 
.NLIST 

0ATAR-LINEX*400* 100000*XC00E 
.LIST 

CHMTl NLINEX . \BITX . \LEN6TX . \LENGTC , \XCOOE . \DATMi 
NLIST 
LEN6TX-LEII6TX*1 
LENGTC-LENGTC«1 
XC00E«XC00E*2*1 
.LIST 
.ENDR 

0ATAR-LINEX*400« 100000«XCOOE 

CHARTl \LINEX . \BITX , \LEN6TX , \LENGTC , \XC00E . \OATAR 

CHARACTER LENGTH TEST 
TRANSMIT 1 CHARACTER ON LINE 17 
CHARACTER LENGTH IS 5 BITS 
EXPECTED RECEIVED CHARACTER IS 37 
;LINE SPEED IS 9600 BAUD 



TS \XN.400.2I 
T75: flOV 
NOV 
(10V 
.IF NB <> 
HOV 

.ENOC 
XN-XN*1 

MOV 
tlOV 
HOV 
HOV 
HOV 
HOV 
BIS 
HOV 
II : TSTB 
BPL 
HOV 



HOV 



CHP 
BEQ 
HLT 
EHT 



*340,PS 
•40O.IC0UNT 
•2 I. ESCAPE 

«.FREEZ1 



46IT11.8DHSCR 

♦37,T0ATA 

«17.S0HSCR 

«-l,80HBC 

*T0ATA.8DHBA 

#33500, SOHLPR 

40.SDHLPR 

♦100000. 80HBAR 

SOHSCR 

II 

80HNRC.R4 



#107437, R5 



RS,R4 
21 



21 : SCOPE 

LENGTX-LENGTX^l 

LENGTC-L£NGTC*1 

XC0DE-XC0DE*2tl 

0ATAR"LINEX*4O0«10OO0O»XC00E 

CHARTl \LINEX , \BITX . \LEN6TX , \LEN6TC , \XCOOE , \OATAR 



: DISABLE ALL INTERRUPTS 
{SET UP FOR 400 ITERATIONS 
:SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP WITH DAI A 



sMASTER CLEAR INTERFACE 

! CHARACTER TO BE TRANSHITTED • 37( OCTAL) 

{SELECT LINE 17 

:SET UP TO TRANSMIT 1 BYTE 

iSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

:SET LINE SPEED FOR 9600 BAUD 

sSET CHARACTER LENGTH FOR 5 BITS 

sSTART TRANSMITTER 

sUAIT TO RECEIVE CHARACTER 

:(R4)-RECEIVED CHARACTER 
ilN LOU BYTE, AND LINE NUMBER AND 
I CHARACTER STATUS IN HIGH BYTE 
:(RS)-EXPECTED CHARACTER IN LOU BYTE 
lANO LINE NUHBER AND CHARACTER 
(STATUS IN HIGH BYTE 

iARE EXPECTED AND RECEIVED DATA THE SAME 
(CHARACTER LENGTH, DATA 
I OR LINE NUMBER ERROR 



(CHARACTER LENGTH TEST 
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S£Q 74 



013770 

013770 012767 000340 

013776 012767 000400 

014004 012767 014116 



014012 
0X4020 
014026 
014034 
014042 
014050 
014056 
014064 
014072 
014076 
014100 



000077 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



004000 
000077 
000017 
177777 
015756 
033500 
000001 
100000 
001560 

001554 



014104 012705 107477 



014110 
014112 
014114 
014114 

014116 



014120 



020504 
001401 

104000 

104400 

000002 
000007 
000177 
107577 



164000 
001720 
001706 



001636 
001730 
001622 
001624 
001614 
001604 
001576 
001576 



014120 



014126 012767 000400 001570 
014134 012767 C14246 001556 



000100 

014142 012777 004000 001506 
014150 012767 000177 001600 



i TRANSMIT 1 CHARACTER ON LINE 17 
2 CHARACTER LENGTH IS 6 BITS 
i EXPECTED RECEIVED CHARACTER IS 77 
iLINE SPEED IS 9600 BAUD 



TS \XN.400. 2t 

T76: MOV 
NOV 
NOV 

.IF ^ <> 
NOV 

.ENOC 
XN-XN*1 

nov 
nov 

HDV 
NOV 
NOV 

nov 

BIS 

nov 

TSTB 
BPL 
HOV 



nov 



II; 



21: 



cnp 

BEQ 

HLT 
EMT 

SCOPE 



♦340. PS 
«400,IC0UNT 
«2I. ESCAPE 

«.FREEZ1 



•BIT11.80HSCR 

#77,TDATA 

#17.BDHSCR 

«-1.8DHBC 

#TDATA.80H6A 

«33S00.8DHLPR 

n.SOHLPR 

4100000. 80HBAR 

8DHSCR 

II 

S0HNRC.R4 



#107477, R5 



RS.R4 
21 



:DISA8LE ALL INTERRUPTS 

-.SET UP FOR 400 ITERATIONS 

8 SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP WITH DATA 



iHASTER CLEAR INTERFACE 
iCHARACTER TO BE TRANSMITTED - 77(0CTAL) 
; SELECT LINE 17 
SET UP TO TRANSniT 1 BYTE 

SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

SET LINE SPEED FOR 9600 BAUD 

SET CHARACTER LENGTH FOR 6 BITS 
s START TRANSMITTER 
;UAIT TO RECEIVE CHARACTER 

i(R4)-RECEIVED CHARACTER 
IN LOU BYTE. AND LINE NUMBER AND 
CHARACTER STATUS IN HIGH BYTE 
(R5)-EXPECTED CHARACTER IN LOU BYTE 
AND LINE NUMBER AND CHARACTER 
STATUS IN HIGH BYTE 

ARE EXPECTED AND RECEIVED DATA THE SAME 



! CHARACTER LENGTH. DATA 
:0R LINE NUMBER ERROR 



LENGTX-LENGTX*1 
LENGTC-LENGTCtl 
XC00E-XC00E*2*1 
DATAR-LINEX*400*100000*XCOOE 

CHARTl \LINEX , \BITX , \LENGTX . \LENGTC , \XC0DE . \DAT AR 

; CHARACTER LENGTH TEST 

(TRANSMIT 1 CHARACTER ON LINE 17 

{CHARACTER LENGTH IS 7 BITS 

! EXPECTED RECEIVED CHARACTER IS 177 

:LINE SPEED IS 9600 BAUD 



014120 012767 000340 163650 T77: 



TS \XN.400.2I 



MOV 



nov 

HOV 
•IF NB <> 

nov 

.ENOC 
XN«XN*1 

HOV 

nov 



♦340, PS 
♦4OO.IC0UNT 
42 I. ESC APE 

♦.FREEZl 



4BIT11.80HSCR 
♦177.TDATA 



tOISABLE ALL INTERRUPTS 
tSET UP FOR 400 ITERATIONS 
:SET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP UITH DATA 



t 3 



;MASTER CLEAR INTERFACE 

iCHARACTER TO BE TRANSMITTED - 177( OCTAL) 



CZDHE-CO 
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SE6 75 



014156 
014164 
014172 
014200 
014206 
014214 
014222 
014226 
014230 



012777 
012777 
012777 
012777 
052777 
012777 
105777 
100375 
017704 



014240 
014242 
014244 
014244 

014246 



014250 



020504 
001401 

104000 

104400 
000003 
000010 
000377 
107777 



000017 
177777 
015756 
033500 
000002 
100000 
001430 

001424 



014234 012705 107577 



001472 
001474 
001464 
001454 
001446 
001446 



1<: 



rtov 

HOV 

nov 
nov 

BIS 

nov 

TSTB 

BPL 

MOV 



MOV 



CMP 
BEQ 
HLT 
EMT 

SCOPE 



«17.S0HSCR 

«-i,aoHec 

«TDATA.80HBA 

♦33500. 8DHLPR 

«2.8DHLPR 

«100000.80HBAR 

80HSCR 

II 

80HNRC.R4 



♦1 07577. R5 



R5,R4 
2t 



21: 

LENGTX-LENGTX^l 
LENGTC-LENGTC*1 
XC0DE-XC00E*2*1 
0ATAR-LINEX*400* 100000 *XCOOE 

CHARTl \LINEX , \BZTX . \LENGTX . \LENGTC . \XCODE . \OATAR 

J CHARACTER LENGTH TEST 
{TRANSniT 1 CHARACTER ON LINE 17 
{CHARACTER LENGTH IS 10 BITS 
{EXPECTED RECEIVED CHARACTER IS 377 
iLINE SPEED IS 9600 BAUD 



sSELECT LINE 17 

{SET UP TO TRANSMIT 1 BYTE 

:SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

:SET LINE SPEED FOR 9600 BAUD 

jSET CHARACTER LENGTH FOR 7 BITS 

s START TRANSMITTER 

iUAIT TO RECEIVE CHARACTER 

s(R4D- RECEIVED CHARACTER 
:IN LOU BYTE. AND LINE NUMBER AND 
{CHARACTER STATUS IN HIGH BYTE 
{(R5)-EXPECTED CHARACTER IN LOU BYTE 
{AND LINE NUMBER AND CHARACTER 
{STATUS IN HIGH BYTE 

{ARE EXPECTED AND RECEIVED DATA THE SAME 
{CHARACTER LENGTH, DATA 
iOR LINE NUHBER ERROR 



014250 








TS \XN,400.2I 




014250 


012767 


000340 


163520 


TlOO: 


NOV 


*340.PS 


014256 


012767 


000400 


001440 




nov 


«400,IC0UNT 


014264 


012767 


014376 


001426 




nov 


*2*. ESCAPE 










.IF NB 


<> 














nov 


•.FREEZl 










.ENDC 








000101 






XN>XN*1 






014272 


012777 


004000 


001356 




nov 


•BIT11.8DHSCR 


014300 


012767 


000377 


001450 




nov 


♦377.TDATA 


014306 


012777 


000017 


001342 




nov 


•17.8DHSCR 


014314 


012777 


177777 


001344 




nov 


♦-1.80HBC 


014322 


012777 


015756 


001334 




nov 


4TDATA.S0HBA 


014330 


012777 


033500 


001324 




nov 


#33500. eOHLPR 


014336 


052777 


000003 


001316 




BIS 


«3.80HLPR 


014344 


012777 


100000 


001316 




nov 


M00000.8DHBAR 


014352 


105777 


001300 




It: 


TSTB 


ODHSCR 


014356 


100375 








BPL 


K 


014360 


017704 


001274 






nov 


aOHNRC.R4 


014364 


012705 


107777 






nov 


♦107777. R5 


014370 


020504 








cnp 


R5.R4 



{DISABLE ALL INTERRUPTS 
{SET UP FOR 400 ITERATIONS 
{SET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP UITH DATA 



{HASTER CLEAR INTERFACE 

{CHARACTER TO BE TRANSMITTED - 377(0CTAL) 

{SELECT LINE 17 

{SET UP TO TRANSMIT 1 BYTE 

iSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

(SET LINE SPEED FOR 9600 BAUD 

(SET CHARACTER LENGTH FOR 10 BITS 

(START TRANSniTTER 

(WAIT TO RECEIVE CHARACTER 

{(R4)-RECEIVED CHARACTER 

{IN LOU BYTE. AND LINE NUMBER AND 

{CHARACTER STATUS IN HIGH BYTE 

(R5)-EXPECTED CHARACTER IN LOU BYTE 

AND LINE NUMBER AND CHARACTER 

STATUS IN HIGH BYTE 

(ARE EXPECTED AND RECEIVED DATA THE SAME 
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014372 001401 
014374 

014374 104000 

0143*^6 104400 
000004 
000011 
000777 
000020 
000000 



BEQ 2$ 
EMT 

2* : SCOPE 

LEN6TX-LENGTX*! 

LENGTC-LENGTC^l 

XC0DE«XC00E*2«1 

LINEX-LlNEXtl 

BITX-BITX^BITX 



L 



; CHARACTER LENGTH, DATA 
sOR LINE NUMBER ERROR 
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SCO 77 



1 014400 



.EOP 



t/BEGIN/ 



014400 
014402 
014404 
014410 
014414 
014420 
014424 
014426 
014490 
014452 
0144S4 
014436 
014440 
014440 
014446 
014446 
014452 
0144 S4 
014456 
014460 
014462 
014464 
014466 
014472 
014474 
014476 
2 014500 



014500 
014506 
014510 
014516 
014520 
014526 
014530 
014534 
014542 
014544 
014550 
014554 
014560 
014562 
014566 
014570 
014574 
014576 



104401 
016362 
005067 
005067 
005267 
005767 
001005 
104401 
016375 
104402 
014472 
000403 

016767 

013701 
001405 
000005 
004711 
000240 
000240 
000240 
000167 
000001 
006 
015712 



032777 
001030 
032777 
001021 
032777 
001006 
005267 
026767 
001007 
005067 
005067 
011667 
000002 
016716 
000002 
005767 
001745 
000762 



(END OF PASS 

I TYPE NAME OF TEST 

;UPOATE PASS COUNT 

I CHECK FOR EXIT TO ACT -11 

(RESTART TEST 



001344 
001274 
001272 
164356 



001246 
000042 



164614 

002 



164334 



EOP; TYPE 

HEPASS 

CLR 

CLR 

INC 

TST 

BNE 

TYPE 

PASTXT 

OCTASC 

PASARG 

BR 

21: 

NOV 

31: 

NOV 
BEQ 
RESET 

LOGICAL: 

NOP 
NOP 
NOP 

RESTRT: JNP 
PASARG: .WORD 
.BYTE 
.UORD 

.SCOPE 



LAST 

ERRFL6 

PASCNT 

LIGHTS 

21 



31 

PASCNT. LIGHTS 



8*42, Rl 

RESTRT 

JSR 



I TYPE NANE OF TEST 

s CLEAR LAST ERROR PC 

I CLEAR ERROR FLAG 

I UPDATE PASS COUNT 

I ARE UE USING LIGHTS? 

i BRANCH IF UE ARE 

I TYPE PASCOUNT MESSAGE 

I PRINT PASSCOUNT 

t CONTINUE 

{DISPLAY PASS COUNT 

(CHECK FOR ACT-11 OR OOP 
tIF NOT. CONTINUE TESTING 



PC.(Rl) 



BEGIN 
1 

6.2 
PASCNT 



PARAMETERS TO PRINT PASSCOUNT 



I CHECK FOR LOOP ON CURRENT TEST 
I CHECK FOR ITERATION SUPPRESSION 



002000 


164272 


SCOPER: 


BIT 


*SU10.BSUR 








BNE 


4» 


040000 


164262 


11: 


BIT 


«SU14,8SUR 








BNE 


31 


004000 


164252 




BIT 


•SUll.BSUR 






BNE 


2» 


001172 






INC 


LPCNT 


001166 


001162 




CMP 


LPCNT.ICOUNT 








BNE 


3t 


001156 




2t: 


CLR 


LPCNT 


001134 






CLR 


ERRFLG 


001136 






NOV 


(SP).RETRN 






RTI 




001130 




31: 


MOV 


RETRN,(SP} 






RTI 




001114 




41: 


TST 


ERRFLG 








BEQ 


11 








BR 


21 



i 5 
; 5 
I 5 



i 9 

I 4 

i 4 

I 4 
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3 014600 .SCOPl 

I CHECK FOR FREEZE ON CURRENT DATA 

014600 032777 001000 164172 SCOPIR: BIT •SII09.8SUR 

014606 001402 BEQ II 

014610 016716 001106 NOV FREEZl.CSP) 

014614 000002 1«: RTI 



SEQ 7a 



t 4 



C/OHC cc 



»»»aio V04.00 as u S6 »»<jl h 















HNNOLCR 




0S2777 


020000 


144154 




•IT 


•StflS.CSlil 


014424 


001055 










HALTS 


0144M 


0(21447 


001122 








(SP).LAST 


0144 


001404 








•EO 


11 


0144 S4 


011447 


001114 






nov 


(SP).LAST 


014440 


005047 


001044 






CLA 


ERRTLG 


014444 


104404 






It: 


SAVOSP 




014444 


011405 








•nv 


(SP).R5 


0144S0 


142705 


000002 






SUB 


•2.R5 


014454 


011504 








NOV 


CR5).R4 


0144S4 


004S04 








ASL 


R4 


014440 


004S04 








ASL 


R4 


014442 


042704 


177001 






BIC 


•177001.R4 


014444 


042704 


016514 






AOO 


•ERRTAB,R4 


014472 


012447 


000040 






nov 


(R4)*. ERRHSG 


014476 


011447 


000052 






nov 


(R4).DATABP 


014702 


005767 


001002 






TST 


ERRfLG 


014704 


001401 








BEQ 


TYPHSG 


014710 


005767 


000040 






TST 


OATABP 


014714 


001011 








BNF 


TYPOAT 


014716 


104401 






TYPHSG: 


TYPE 




014720 


016272 








nCRLF 




014722 


104402 








OCTASC 




014724 


015022 








ERTA60 




014726 


012767 


000001 


000754 




MOV 


•l.ERRFLG 


0147S4 


104401 








TYPE 




014734 


000000 






ERRHSG: 


0 




014740 


005767 


000010 




TYPDAT: 


TST 


OATABP 


014744 


001404 








BEQ 


RESREG 


014746 


104401 








TYPE 




014750 


016272 








HCRUF 




014752 


104402 








OCTASC 




014754 


000000 






OATABP: 


0 




014754 


104407 






RESREC: 


RE SOS 




014740 


005777 


164014 




HALTS: 


TST 


0SMR 


014764 


100005 








BPL 


EXITER 


014766 


010046 








PUSHRO 




014770 


016600 


000002 






MOV 


2CSP).R0 


014774 


000000 








HALT 




014776 


012600 








POPRO 




015000 


005267 


000710 




EXITER: 


INC 


ERRCNT 


015004 


0S2777 


002000 


163766 




BIT 


•SHIO.SSUR 


015012 


001402 








BEQ 


1* 


015014 


016716 


000700 






HOV 


ESCAPE. (SP) 


015020 


000002 






lit 


RTI 




015022 


000001 






ERTABO: 


1 




015024 


006 


002 






.BYTE 


6.2 


015026 


015746 








SAVPC 
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SEQ eo 



OlbOSO 



015030 
0150S2 
015036 
015042 
015044 
015050 
015054 
015060 
2 015062 



.TRPMV 



I TRAP DISPATCH SERVICE 
tARGUrtENT OF TRAP IS EXTRACTED 
lANO USED AS OFFSET TO OBTAIN POINTER 
<T0 SELECTED SUBROUTINE 



011646 

162716 000002 
017616 000000 
006316 

042716 177001 
062716 01M34 
017616 OCOOOO 
000136 



TRPSRV: HOV 
SUB 
HOV 

TRPOK: ASL 
BIC 
ADD 
HOV 
JMP 

.SAVREG 



(SP).-(SP) 
•2.(SP) 
0(SP).(SP) 
(SP) 

•177001. (SP) 
•TRPTAB.(SP) 
S(SP).(SP) 
0(SP)* 



:GET PC OF RETURN 
;-PC OF TRAP 
sGET TRP 

jMULTIPLY TRAP ARG BY 2 

i CLEAR UNWANTED BITS 

;POINTER TO SUBROUTINE ADDRESS 

{SUBROUTINE ADDRESS 

iGO TO SUBROUTINE 



015062 016667 000004 000656 SVOSP: 



sSAVE PC OF TEST THAT FAILED AND RO-RS 
HOV 4(SP).SAVPC 
tSAVE R0-R5 



015070 
015074 
OlSlOO 
015104 
015110 
015114 
015120 
3 015122 



015122 
015126 
015132 
015136 
015142 
015146 
015152 



010567 
010467 
010367 
010267 
010167 
010067 
000002 



016700 
016701 
016702 
016703 
016704 
016705 
000002 



000646 
000640 

000632 
000624 
000616 
000610 



000602 
000600 
000576 
000574 
000572 
000570 



SVOS: 



.RESREG 



HOV 
HOV 
HOV 
HOV 
HOV 
HOV 
RTI 



RS.SAVRS 
R4.SAVR4 

R3.SAVR3 
R2.SAVR2 
Rl.SAVRl 
RO.SAVRO 



> 3 



;RESTORE R0-R5 



RS05: 



HOV 
HOV 
HOV 
HOV 
HOV 
HOV 
RTI 



SAVRO.RO 
SAVRl.Rl 
SAVR2.R2 
SAVR3.R3 
SAVR4.R4 
SAVR5.R5 
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SEQ Bl 



1 01S154 



.TYPER 



; TELETYPE OUTPUT ROUTINE 



At ^1 








TVDCD . 

1 ircK: 


nuv 


of CO > oc 


At e« 4^ 










Ann 


AO ^ CO ^ 
•2 , C 5r } 


015164 


105777 


000462 




1$: 


TSTB 


8TPCSR 


015170 


100375 








BPL 


1) 


015172 


105715 








TSTB 


(R5) 


015174 


001001 








BNE 


2* 


01 7#> 










OTT 












Ot - 


Mnun 


(R5)*.STPDBR 












RO 
BN 












• xno t nu 






















01 7ftf>7 
VX f WW f 


OOOOOO 
www 


OOQOOft 
wwvw 






Of CD Mcr 


015214 


062716 

Wit I J.W 


000002 






Ann 






104401 






TNSTRl • 


TYPF 


015222 

W A ^4»4»4» 


000000 






■ • 


n 

V 




015224 


012704 


0164 S6 










015230 


012703 


000007 

www I 






HOW 




015234 


105777 


000406 




It • 


TSTB 




015240 


100375 








RPL 




015242 


117714 


000402 








fiTICDRP r RA ) 


015246 


142714 


000200 










015252 


122427 


000015 










015256 


001413 








BEQ 


INSTRP 


015260 


117777 


000364 


000366 






fiTKDRR RTPDRR 


015266 


105777 


000360 




21: 


TSTB 


8TPCSR 


015272 


100375 








BPL 


21 


015274 


005303 








OEC 


R3 


015276 


001356 








BNE 


1* 


015300 


104401 






INSTRE: 


TYPE 




015302 


016266 








nan 




015304 


000745 








BR 


INSTPl 


015306 


000002 






INSTR2: 


RTI 





i 3 
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1 015S10 



015310 


011605 




015312 


012567 


000146 


015316 


012567 


000144 


015322 


012567 


000142 


015326 


112567 


000140 


015332 


112567 


000135 


015336 


010516 




015340 


005005 




015342 


012704 


016456 


015346 


122714 


000015 


015352 


001420 




015354 


121427 


000060 


015360 


002415 




015362 


121427 


000067 


015366 


003012 




015370 


142714 


000060 


015374 


152405 




015376 


122714 


000015 








015404 


006305 




015406 


006305 




015410 


006305 




015412 


000760 




015414 


104404 




015416 


000750 




015420 


020567 


000042 


015424 


101373 




015426 


020567 


000032 


015432 


103770 




015434 


136705 


000032 


015440 


001365 




015442 


016704 


000022 



015446 010524 

015450 062705 000002 

015454 105367 000013 

015460 001372 

015462 000002 

015464 000000 

015466 000000 

015470 000000 

015472 000000 
015473 



JUN-85 12:56:29 PAGE 24 
.P ARAMS 

I CONVERT ASCII STRING TO OCTAL 



PARANS: 


MOV 


(SP).R5 




MOV 


(R5)».L0LIM 




MOV 


(R5)*.HILIM 




MOV 


(R5)..DEVADR 




HOVB 


(R5)».L0BITS 




MOVB 


(R5)4,ADRCNT 




MOV 


R5.(SP) 


PARAni : 


CLR 


R5 




MOV 


♦INBUF.R4 




CMPB 


♦15. (R4) 




BEQ 


PARERR 


1*: 


CMPB 


(R4),*60 




BLT 


PARERR 




CMPB 


(R4).467 




BGT 


PARERR 




BICB 


«60.(R4) 




BISB 


(R4)*.R5 




CMPB 


«15.(R4) 




BEQ 


LIMITS 




ASL 


R5 




ASL 


R5 




ASL 


R5 




BR 


11 


PARERR: 


INSTER 






BR 


PARAMl 



:TEST TO SEE IF NUMBER IS WITHIN LIMITS 



LIMITS: CMP 


RS.HIL IM 


BHI 


PARERR 


CMP 


R5.L0LIM 


BLO 


PARERR 


BITB 


L0BITS,R5 


BNE 


PARERR 



i STORE NUMBER AT SPECIFIED ADDRESS 

MOV DEVA0R.R4 
1«: MOV R5.(R4)* 

ADD *2.RS 

DECB AORCNT 

BNE 1» 

RTI 
LOLIN: 0 
HILIM: 0 
DEVAOR: 0 
LOBITS: 0 
ADRCNT-LOBITSil 
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SEQ 83 



015474 .OCTASC 

t CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 



015474 


017601 


000000 


OCTASN: 


NOV 


8(SP).R1 


015500 


062716 


000002 




ADD 


*2.(SP) 


015504 


012167 


000130 




NOV 


(R1)«.URDCNT 


015510 


112167 


000126 


1$: 


NOVB 


(RD*. CHRCNT 


015514 


112167 


000123 




NOVB 


(R1)*.SPACNT 


015520 


013167 


000120 




NOV 


B(R1)*.BI^•URD 


015524 


016704 


000114 


21: 


NOV 


BINUR0.R4 


015530 


116705 


000106 




NOVB 


CHRCNT, R5 


015534 


012700 


016470 




NOV 


*TENP,RO 


015540 


010403 




3): 


NOV 


R4,R3 


015542 


042703 


177770 




BIC 


♦177770. R3 


015546 


062703 


000260 




ADO 


«260.R3 


015552 


110320 






NOVB 


R3.(R0)* 


015554 


006204 






ASR 


R4 


015556 


006204 






ASR 


R4 


015560 


006204 






ASR 


R4 


015S<>2 


005305 






DEC 


R5 


015564 


001365 






BNE 


3$ 


015566 


012703 


016502 




MOV 


♦M0ATA.R3 


015572 


114023 




41: 


MOVB 


-(R0).(R3)* 


015574 


105367 


000042 




DECB 


CHRCNT 


015600 


001374 






BNE 


41 


015602 


105767 


000035 




TSTB 


SPACNT 


015606 


001405 






BEQ 


B* 


015610 


112723 


000240 


Si : 


MOVB 


«240.(R3;« 


015614 


105367 


A A A A V 

000023 




DECB 


SPACNT 


015620 


001373 






BNE 


5$ 


015622 


105013 




61: 


CLRB 


(R3) 


015624 


104401 






TYPE 




015626 


016502 






nDATA 




015630 


005367 


000004 




DEC 


URDCNT 


015634 


001325 






BNr 


11 


015636 


000002 






RTl 




015640 


000000 




UROCNT : 


0 




015642 


000000 




CHRCNT : 


0 






015643 




SPACNT- 


CHRCNT a 




015644 


000000 




BINURO: 


0 





C20HC-CO 



tV(<.SiO V04.00 



01564« 



015646 177560 

015650 177562 

015652 177564 

015654 177566 

TLVL> 



015656 000000 

015660 000000 

015662 000000 

015664 000000 

015666 000000 

015670 000000 

015672 000000 

015674 000000 

015676 000000 

015700 000000 

015702 000000 

015704 000000 

015706 000000 
2 015710 



015710 000000 

015712 000000 

015714 000000 

01S716 000000 

015720 000000 

015722 000000 

015724 000000 

015726 000000 

015730 000000 

015732 000000 

015734 000000 

015736 000000 

015740 000000 

015742 000000 

015744 000000 

015746 000000 

015750 000000 

015752 000000 

015754 000000 



015756 000000 
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. POINT t/OHSCR , DHNRC . DHLPR . OHBA . OHBC , DHBAR . DHBCR , DHSSR . OHSLR . DHRVEC , DHRLVL . OHTVEC .OHTLVL/ 
i INDIRECT POINTERS t 3 

TKCSR: 177560 

TKDBR: 177562 

TPCSR: 177564 

TPOBR: 177566 

. IRP A <DHSCR , DHNRC . DHLPR . DHB A , DHBC .DHBAR . DHBCR , DHSSR . DHSLR , DHRVEC . OHRLVL . DHT VEC . OH 

A: 0 
.ENOM 

DHSCR: 0 

DHNRC: 0 

DHLPR: 0 

DH8A: 0 

DHBC: 0 

DHBAR: 0 

DHBCR: 0 

DHSSR: 0 

OHSLR: 0 v 

DHRVEC: 0 

OHRLVL: 0 

OHTVEC: 0 

DHTLVL: 0 

.VARIA <t/TDATA/> 

sPRGGRAH VARIABLES 



ERRFLG: 


0 


sERROR FLAG 


PASCNT : 


0 


iPASS COUNT 


ERRCNT : 


0 


; ERROR COUNT 


RETRN: 


0 


(SCOPE RETURN ADDRESS FOR TEST LOOPING 


ESCAPE: 


0 


i ADDRESS FOR ERROR ESCAPE 


FREEZl: 


0 


:DATA LOOPING RETURN ADDRESS 


ICOUNT: 


0 


i ITERATION COUNT FOR TEST IN PROGRESS 


LPCNT: 


0 


iNUHBER OF ITERATIONS THIS TEST 


SAVRO: 


0 


:R0 SAVE AREA 


SAVRl: 


0 


iRl SAVE AREA 


SAVR2: 


0 


|R2 SAVE AREA 


SAVR3: 


0 


:R3 SAVE ARE 


SAVR4: 


0 


iR4 SAVE AREA 


SAVR5: 


0 


iR5 SAVE AREA 


SAVSP: 


0 


(STACK POINTER SAVE AREA 


SAVPC: 


0 


(CALLING ROUTINE SAVE AREA 


INIFL6: 


0 


(PROGRAH INITIALIZATION FLAG 


STFLG: 


0 


(PROGRAM START FLAG 


LAST: 


0 


(LAST ERROR PC 


.IRP 


A 


<t/TOATA/> 


A: 


0 




.ENDH 






TOATA: 


0 
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SEQ 85 



1 015760 



.PFAIL 



: ENTER HERE ON POUER FAILURE 



015760 
015762 
015764 
015766 
015770 
015772 
015774 
016000 
016004 
016012 
016014 



016016 
016022 
016024 
016026 
016030 
016032 
016034 
016036 
016044 
016052 
016056 
016062 
016066 
016070 
016072 
016074 
016076 
016100 
016102 
016104 
016110 
016114 
016120 
016122 
016126 



010046 
010146 
010246 
010346 
010446 
010546 
016746 
010667 
012767 
000000 
000777 



016706 
012605 
012604 
012603 
012602 
012601 
012600 
012767 
012767 
012706 
005067 
005267 
001375 
104401 
016272 
104402 
016120 
104401 
016275 
005067 
005067 
000177 
000001 
000006 
015716 



162024 
177740 
016016 



PFAIL: rlOV 

nov 
nov 
nov 
nov 
nov 
wv 
nov 

162012 mv 
HALT 
BR 



RO.-(SP) 
Rl.-CSP) 
R2.-(SP) 
R3.-(SP) 
R4.-(SP) 
R5.-(SP) 
24.-(SP) 
SP.SAVSP 
«RESTART,24 



iSAVE R0-R5 ON PROCESSOR STACK 



sSAVE STACK POINTER 

sSET UP FOR POUER UP TRAP 

(HALT ON POUER OOUN NORHAL 



; 3 



1777PP 




RESTAR : 


nov 


SAVSP.SP 








nov 


(SP)*,R5 








nov 


(SP)«.R4 








nov 


(SP)«.R3 








nov 


(SP}«.R2 








nov 


(SP)*.R1 








nov 


(SP)«.R0 


015760 


161760 




nov 


«PFAIL,24 


000340 


161724 




MOV 


•340. PS 


017004 






nov 


♦STACK. SP 


000406 






CLR 


TEHP 


000402 






INC 


TEnP 








BNE 


.-4 








TYPE 










nCRLF 










OCTASC 










PFTA8 










TYPE 










nPFAIL 




177600 






CLR 


ERRFLG 


177640 






CLR 


LAST 


177576 






JHP 


8RETRN 






PFTAB: 


1 




000002 






6.2 










RETRN 





{PROCESSOR UILL TRAP HERE UHEN POUER IS RESTORED 

sRESTORE STACK POINTER 
s RESTORE RO-RS 



iSET UP FOR POUER FAILURE 



; 5 
I 5 
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016130 








016130 


015 


012 


012 


016133 


104 


110 


061 


016136 


061 


040 


103 


016141 


110 


101 


122 


016144 


101 


103 


124 


016147 


105 


122 


040 


016152 


114 


105 


116 


016155 


107 


124 


110 


016160 


040 


101 


116 


016163 


104 


040 


102 


016166 


101 


123 


111 


016171 


103 


040 


104 


016174 


101 


124 


101 


016177 


040 


124 


105 


016202 


123 


124 


040 


016205 


015 


012 


000 


016210 


015 


012 


126 


016213 


105 


103 


124 


016216 


117 


122 


040 


016221 


101 


104 


104 


016224 


122 


105 


123 


016227 


123 


055 


000 


016232 


015 


012 


103 


01623S 


117 


116 


124 


016240 


122 


117 


114 


016243 


040 


122 


105 


016246 


107 


111 


123 


016251 


124 


105 


122 


016254 


040 


101 


104 


016257 


104 


122 


105 


016262 


123 


123 


055 


016265 


000 






016266 


040 


AAA 

040 


Oil 


016271 


000 






016272 


015 


012 


000 


016275 


040 


040 


120 


016300 


117 


127 


105 


016303 


122 


040 


106 


016306 


101 


111 


114 


016311 


125 


122 


105 


016314 


054 


040 


120 


016317 


122 


117 


107 


016322 


122 


101 


115 


016325 


040 


122 


105 


016330 


123 


124 


101 


016333 


122 


124 


040 


016336 


101 


124 


040 


016341 


124 


105 


123 


016344 


124 


040 


111 


016347 


116 


040 


120 


016352 


122 


117 


107 


016355 


122 


105 


123 


016360 


123 


000 




016362 


015 


012 


103 


016365 


132 


104 


110 



.nSG t/DHll CHARACTER LENGTH AND BASIC DATA TEST/.t/CZOHE-CO/ 

HTITLE: .ASCIZ <1S><12><12>/0H11 CHARACTER LENGTH AND BASIC DATA TEST /<15><12> 



nVECTO: .ASCII < 15 >< 12 > /VECTOR ADDRESS-/ 



HREGAO: .ASCIZ <15><12>/C0NTR0L REGISTER ADDRESS-/ 



HQH: .ASCIZ / ?/ 
nCRLF: .ASCIZ <15><12> 

HPFAIL: .ASCIZ / POWER FAILURE. PROGRAM RESTART AT TEST IN PROGRESS/ 



MEPASS: .ASCIZ <15><12>/CZ0HE-C0/ 



CZOHE-CO 
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SEQ ft? 



016370 


105 


055 


103 






016373 


060 


000 








016375 


015 


012 


120 


PASTXT: 


.ASCIZ 


016400 


101 


123 


123 






016403 


040 


103 


117 






016406 


125 


116 


124 






016411 


040 


075 


040 






016414 


000 










016415 


015 


012 


122 


MR • 


.ASCIZ 


016420 


000 










016421 


015 


012 


124 


MTSTPC: 


.ASCIZ 


016424 


105 


123 


124 






016427 


040 


120 


103 






016432 


055 


000 




.EVEN 
.EVEN 




016434 








.TRPTAB 





016434 
016436 
016440 
016442 
016444 
016446 
016450 
016452 
016454 
4 016456 



016456 
016470 

016502 
5 016514 



014500 
015154 
015474 
015206 
015300 
015310 
015062 
015122 
014600 



000000 
016470 
000000 
016502 

000000 
016514 



> 5 



: TABLE OF POINTERS FOR TRAP DECODING 



TRPTAB: SCOPER 
TYPER 
OCTASN 
INSTRG 
INSTRE 
PARAnS 
SV05P 
RS05 
SCOPIR 

.BUFFER 



: BUFFERS FOR INPUT -OUTPUT 



INBUF: 0 
.-.♦10 
TEMP: 0 
.-.♦10 

no AT A: 0 

.•.♦10 

.ERRTAB 



016514 








ERRTAB: 


6 016514 


016520 






EHl 


7 016516 


016572 






on 


5 016520 


103 


110 


101 


EMI: .ASCIZ 


016523 


122 


101 


103 




016526 


124 


105 


122 




016531 


040 


114 


105 




016534 


116 


107 


124 




016537 


110 


040 


105 




016542 


122 


122 


117 




016545 


122 


015 


012 




016550 


105 


130 


120 




016553 


040 


040 


040 





{TABLE OF POINTERS TO ERROR MESSAGES AND DATA 



ASCIZ /CHARACTER LENGTH ERR0R/<15><12>/EXP 



REC 



CZOHE-CO 



MACRO V04.00 27 JUN-S5 12:56:29 PAGE 28-2 



016556 040 

016S61 105 

016564 040 

016567 040 

9 

10 016572 000002 

11 016574 006 

12 016576 01S742 

13 016600 006 

14 016602 015740 

15 016604 
016604 000000 

16 000001 



040 122 
103 040 
040 040 
000 

.EVEN 
DTI: 2 
002 .BYTE 6.2 

SAVR5 

000 .BYTE 6,0 

SAVR4 

.ENOCOO 
ENOCOO: 0 
.END 



^LU SB 
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SYMBOL TABLE 



AORCNT- 


01S473 


ERRTAB 


016514 


PFAIL 


015760 


BEGIN 


001306 


ERTABO 


015022 


PFTAB 


016120 


BINURO 


015644 


ESCAPE 


015720 


POPRO - 


012600 


BITX - 


000000 


EXZTER 


015000 


POPISP- 


005726 


BITOO - 


000001 


FREEZl 


015722 


P0P2SP- 


022626 


BITOl - 


000002 


HALTS 


014760 


PS 


177776 


BIT02 - 


000004 


HILZn 


015466 


PUSHRO- 


010046 


BIT03 - 


000010 


ZCOUNT 


015724 


PUSHIS- 


005746 


BIT04 - 


000020 


INBUF 


016456 


PUSH2S- 


024646 


B1T05 • 


000040 


INIFLG 


015750 


RDATA - 


107777 


BZT06 - 


000100 


ZNSTER- 


104404 


RESRE6 


014756 


BITOT « 


000200 


INSTR - 


104403 


RESTAR 


016016 


BIT08 - 


000400 


INSTRE 


015300 


RESTRT 


014466 


BIT09 - 


001000 


INSTRG 


015206 


RES05 - 


104407 


BITIO ■ 


002000 


INSTRl 


015220 


RETRN 


015716 


BITll • 


004000 


INSTR2 


015306 


RS05 


015122 


BIT12 - 


010000 


LAST 


015754 


SAVPC 


015746 


BIT13 - 


020000 


LENGTC- 


000011 


SAVRO 


015730 


BIT14 • 


040000 


LEN6TX- 


000004 


SAVRl 


015732 


BIT15 - 


100000 


LIGHTS 


001002 


SAVR2 


015734 


CHRCNT 


015642 


LIMITS 


015420 


SAVR3 


015736 


CLENGT* 


000011 


LINEX - 


000020 


SAVR4 


015740 


COOCX - 


000777 


LOBITS 


015472 


SAVR5 


015742 


DATABP 


014754 


LOGICA 


014456 


SAVSP 


015744 


OATAR - 


107777 


LOLIM 


015464 


SAV05P- 


104406 


OEVAOR 


015470 


LPCNT 


015726 


SCOPE • 


104400 


OHBA 


015664 


MCRLF 


016272 


SCOPER 


014500 


OHBAR 


015670 


MOATA 


016502 


SCOPEl- 


104410 


OHBC 


015666 


MEPASS 


016362 


SCOPIR 


014600 


OHBCR 


015672 


MPFAIL 


016275 


SPACNT" 


015643 


DHLPR 


015662 


MQM 


016266 


STACK - 


017004 


OHNRC 


015660 


MR 


016415 


START 


001004 


OHRLVL 


015702 


MREGAO 


016232 


STFLG 


015752 


OHRVEC 


015700 


MSG 


015222 


SV05 


015070 


DHSCR 


015656 


MTITLE 


016130 


SV05P 


015062 


DHSLR 


015676 


MTSTPC 


016421 


SUR 


001000 


DHSSR 


015674 


MVECTO 


016210 


SUOO > 


000001 


OHTLVL 


015706 


N 


000001 


SUOl - 


000002 


OHTVEC 


015704 


OCTASC* 


104402 


SW02 • 


000004 


OTl 


016572 


OCTASN 


015474 


SU03 - 


000010 


EMI 


016520 


PARAM • 


104405 


SU04 - 


000020 


ENOCOO 


016604 


PARAMS 


015310 


SUOS - 


000040 


EOP 


014400 


PARAMl 


015340 


SW06 - 


000100 


ERRCNT 


015714 


PARERR 


015414 


SUOB ■ 


000400 


ERRFL6 


015710 


PASARG 


014472 


SU09 - 


001000 


ERRflSG 


014736 


PASCNT 


015712 


SUlO • 


002000 


ERRORS 


014616 


PASTXT 


016375 






. AOS. 


016606 


000 









000000 001 
ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 17664 WORDS ( 69 PAGES) 

DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
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SEQ 89 



sun - 


004000 


T4 


002010 


SU12 - 


010000 


T40 


006650 


SU13 - 


020000 


T41 


007000 


SU14 - 


040000 


T42 


007130 


SU15 - 


100000 


T43 


007260 


TOATA 


015756 


T44 


007410 


TEMP 


016470 


T45 


007540 


TKCSR 


015646 


T46 


007670 


TKOBR 


015650 


T47 


010020 


TPCSR 


015652 


T5 


002140 


TPOBR 


015654 


T50 


010150 


TRPOK 


015042 


T51 


010300 


TR^SRV 


015030 


T52 


010430 


TRPTAB 


016434 


T53 


010S60 


TYPOAT 


014740 


T54 


010710 


TYPE - 


104401 


T55 


011040 


TYPER 


015154 


T56 


011170 


TYPMSG 


014716 


T57 


011320 


Tl 


001400 


T6 


002270 


TIO 


002550 


T60 


011450 


TlOO 


014250 


T61 


011600 


Til 


002700 


T62 


011730 


T12 


003030 


T63 


012060 


T13 


003160 


T64 


012210 


T14 


003310 


T65 


012340 


T15 


003440 


T66 


012470 


T16 


003570 


T67 


012620 


T17 


003720 


T7 


002420 


T2 


001530 


T70 


012750 


T20 


004050 


T71 


013100 


T21 


004200 


T72 


013230 


T22 


004330 


T73 


013360 


T23 


004460 


T74 


013510 


T24 


004610 


T75 


013640 


T25 


004740 


T76 


013770 


T26 


005070 


T77 


014120 


T27 


005220 


VECl 


001164 


T3 


001660 


VEC2 


001174 


T30 


005350 


URDCNT 


015640 


T31 


005500 


X 


000000 


T32 


005630 


XBIT • 


000000 


T33 


005760 


XCWE - 


000777 


T34 


006110 


XLENGT* 


000004 


T35 


006240 


XLINE - 


000020 


T36 


006370 


XN 


000101 


TS7 


006520 


Y " 


000011 



